Как сделать, чтобы label в delphi мигал. нужна помощь

Как сделать, чтобы label в delphi мигал. нужна помощь
вот кусок кода, мне надо, чтобы при выбранном правильном ответе, у меня мигала надпись "верно", т. е. то пропадала, то снова появлялась и так 3 раза, вот с этим кодом у меня все зависает. как сделать правильно?

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if radiobutton1.Checked then
begin
label2.Font.Color:=RGB(0,150,0);
for i:=1 to 3 do
begin
label2.Caption:='Верно';
sleep(500);
label2.Caption:='';
sleep(500);
end;
end;

  • Либо делать это в отдельном потоке, либо по таймеру)
  • >и куда application.processmessages(); вставлять?
    Можешь просто своему лейблу Repaint сделать, с тем же эффектом.
  • procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
    if radiobutton1.Checked then
    begin
    label2.Font.Color:=RGB(0,150,0);
    for i:=1 to 3 do
    begin
    label2.Caption:='Верно';
    application.processmessages
    sleep(500);
    label2.Caption:='';
    application.processmessages
    sleep(500);
    end;
    end;

    Вот сюда его и вставлять надо.