In edit mit focus schreiben

[edi3010]

Hey

Ich versuche seit Stunden einen passenden Befehl zu finden
Ich habe ein Formular mit 2 Eingabefeldern und möchte, dass ich per Knopfdruck auf Button1 in das fokusierte/ aktivierte Eingabefeld schreibe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.Focused then

  edit1.text := edit1.Text + '1'
  else if edit2.Focused then

  edit2.text := edit2.Text + '1'

end;

Das Programm schreibt aber überhaupt nichts nirgendwo rein
... ich glaube, dass es an dem Ausdruck "Focused" liegt...gibt es dann irgendeine Alternative?

ich hoffe, mir kann jemand helfen

viele Grüße und schöne Weihnachten
Stefan