Hola,
Puedes usar la función "Copy" y, basándote en el espacio en blanco...
Código Delphi
[-]
var
i: integer;
numero,letra: string;
begin
letra := '';
numero := '';
i := Pos(' ', Trim(Edit1.Text));
if (i <> 0) then begin
numero := Copy(Edit1.Text, 0, i-1);
letra := Copy(Edit1.Text, i+1, Length(Edit1.Text));
end else begin
numero := Edit1.Text;
end;
ShowMessage(numero);
ShowMessage(letra);
end;