[axesys]

Intenta con una variable string

Código Delphi [-]
 
var
  cadena: string;
begin
  cadena:= edit1.text;
  edit7.text:= cadena[1]; //para sacar la primer letra
end;