Hola crc2005
Solo por curiosidad para ti haz esta prueba:
En una aplicacion nueva, coloca 2 edit y un boton, en el evento on click del boton pon:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
Var
A: String;
N: Integer;
begin
A:= Edit1.Text;
N:= 1;
Edit2.Text:= Edit1.Text + IntToStr(N);
end;
end.
Ejecutalo, pon en el edit 1 la letra A, y presiona el boton.
Esto no hara lo que necesitas pero te va a dar muchas ideas, en vase a esto podras hacer lo que quieres.
Saludos