separar string

[dec]

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 := '';

  // Buscamos la posición del espacio
  i := Pos(' ', Trim(Edit1.Text));

  // Si existe un espacio...
  if (i <> 0) then begin
    // Copiamos el número de la cadena
    numero := Copy(Edit1.Text, 0, i-1);
    // Y a continuación la letra
    letra := Copy(Edit1.Text, i+1, Length(Edit1.Text));
  end else begin
    // Si no existe el espacio se asume
    // que la cadena es un número
    numero := Edit1.Text;
  end;

  ShowMessage(numero);
  ShowMessage(letra);

end;