[Lazarus] Migające pole Edit

[Tajny Współpracownik]

Kod:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Inc(count);
         if (Edit1.Color=clDefault) then
         begin
              Edit1.Color:=clYellow;
         end
         else
             Edit1.Color:=clDefault;

    if count>7 then Timer1.Enabled:=false;

end;

Bez użycia wątków.