help

[malevich]

Задача ерунда! Но получается не то, как хотелось бы
*********************************** ******************************
допустим хочу чтобы при нажатии кнопки (Button1), панель (Panel1) начинала мигать (изменять свой цвет: например сначала красный, потом зеленый, а потом синий, и осталась синей). Получается панель синей, но с задержкой 1 секунда (500+500). что не так???

вот код:
*********************************** *********************
procedure TForm1.Button1Click(Sender: TObject);
begin
panel1.Color:=clRed;
sleep(500);
panel1.Color:=clGreen;
sleep(500);
panel1.Color:=clBlue;

end;

[SuperVisor]

Sleep очень интересная процедура....
Сделай так:

procedure TForm1.Button1Click(Sender: TObject);
begin
panel1.Color:=clRed;
panel1.repaint;
sleep(500);
panel1.Color:=clGreen;
panel1.repaint;
sleep(500);
panel1.Color:=clBlue;
end;

А еще лучше пробуй себя в другом - в работе с таймерами.