[[seoane]]

Todo esa posible, para copiar lo tres primeros caracteres:

Código Delphi [-]
var
  s: string;
begin
  s:= Copy(Edit1.text,1,3);
end;

Para copiar los tres ultimos:

Código Delphi [-]
var
  s: string;
begin
  s:= Copy(Edit1.text,Length(Edit1.text)-2,3);
end;