Edit.text 5 mal Blinken lassen

[Natcree]

Zitat:

Wenn ich den Code richtig verstehe, soll mit einem "RETURN" im jeweiligen Edit der Timer aktiviert werden.

Ja so ist es gemeint.

Habe jetzt den Sender in stringlist gespeichert.

und will ihm im Timer wieder nutzen

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
var
Spieler:TEdit;
begin
Spieler.name:=st.strings[1];
if Spieler.Text =  st.Strings[0] then Spieler.text :=  ''  else
if Spieler.text =  ''            then Spieler.Text :=  st.Strings[0];
timer1.Tag  :=  Timer1.tag+1;
if timer1.Tag = strtoint(st.strings[0])*2 then timer1.Enabled :=  false;
end;

Er gibt mir aber fehler aus