Tienes que usar la función SubString(int index, int count) de los AnsiString, que te devuelve un AnsiString de count caracteres empezando a contar desde index. En tu caso, sería:
AnsiString CURP=Nombre->Text.SubString(1,2)+Apellidos->Text.SubString(1,2)+...;
sustituyendo los puntos suspensivos por los demás campos que haya.
