Ansteuerung von einem statt zwei Editfelder

[Fallenzer]

Hallo und guten Tag,

Ich habe nun folgendes Problem:

Ich versuche, durch einen Nummernblock, der aus den Ziffern 0-9 besteht, zwei Editfelder EINZELN anzusteuern...

Dafür habe ich folgenden Code verwendet

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Showing then
begin
Strin:= Edit1.text;
Strin:=concat(Strin,'1');
Edit1.Text:= Strin;
end;
if Edit2.Showing then
begin
Strin2:= Edit2.text;
Strin2:=concat(Strin2,'1');
Edit2.Text:= Strin2;
end;
end;

Hierbei werden aber BEIDE Editfelder angesteuert, nicht nur das ausgewählte...

Ich bitte um schnellstmögliche Hilfe.
Vielen Dank