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;