Or use timer
procedure TForm1.Button6Click(Sender: TObject);begin simon[1].Pen.Width := 10; Timer1.Enabled := True;end;procedure TForm1.Timer1Timer(Sender: TObject);begin Timer1.Enabled := False; simon[1].Pen.Width := 3;end;
procedure TForm1.Button6Click(Sender: TObject);begin simon[1].Tag := 0; Timer1Timer(nil); Timer1.Enabled := True;end;procedure TForm1.Timer1Timer(Sender: TObject);begin if simon[1].Tag = 1 then begin simon[1].Pen.Width := 3; simon[1].Tag := 0; end else begin simon[1].Pen.Width := 10; simon[1].Tag := 1; end;end;