Edit.text 5 mal Blinken lassen

[Natcree]

Danke für die Hilfe und da ich Faul und unverbesserlich bin habe ich es so gemacht

Delphi-Quellcode:

procedure TForm3.SpielerKeyPress(Sender: TObject; var Key: Char);
var
Spieler:TEdit;
begin
  Spieler:=TEdit(Sender);
  st:=Tstringlist.Create;
  st.Add(Spieler.text);
  st.Add((Sender as TComponent).Name);
  if Key = #13 then
  begin
    key := #0;//schalt sound ab
    Timer1.Interval := 500;
    Timer1.Enabled  := true;
  end;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var
Spieler:  TEdit;
begin
  Spieler :=  TEdit(FindComponent(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;
  if Timer1.Enabled=false then st.Free;
  if Timer1.Enabled=false then Timer1.Tag:=0;
end;