ach ne des geht viel einfacher ^^;
also
procedure form1.timer1....
begin
edit1.text := inttostr(strtoint(edit1.text) + 1)
if edit1.text = '10' then timer1.interval := 0;
end;
und dann einfach wenn des editfeld ne bestimme zahl ist dann erscheint was^^
der edit text muss aber davor eine zahl sein
