Zitat:
Und wenn nur der Text "blinken" soll, speicherst Du ihn zwischen und wechselst zwischen dem gespeichtern String und einem Leerstring.
Delphi-Quellcode:
var
st:Tstringlist;
...
...
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if Edit1.Text=st.Strings[0] then Edit1.text:=''else
if edit1.text='' then Edit1.Text:=st.Strings[0] ;
timer1.Tag:=Timer1.tag+1;
if timer1.Tag=strtoint(st.strings[0])*2 then timer1.Enabled:=false;
end;
Geht es auch noch kürzer?