Задержка в Delphi

[Wi1D]

Уважаемые программисты!)))
Вообщем у меня один вопрос...как реализовать задержку в Делфи 7!
Мне нужно чтобы по нажатию клавиши высветилась картинка иа под ней была написана реплика.после того как это произойдет чтобы каждые 3 секунды реплика менялась на еще 3 реплики...ну поочередно...я могу просто вывести картинку и надпись...а вот дальше проблема с задержкой...когда пользуюсь Timer то все зависает когда пользуюсь Sleep он высвеяивает только последнюю метку!Кто знает помогите)))заранее спасибо

[TOJluK]

А что за проблема с таймером? Попробуй Application.ProcessMessage

[Wi1D]

не знаю..но предпологаю что зацикливание....а не могли бы вы примерный код задержки напиать...я с Application.ProcessMessage не знаком ;((

[Wi1D]

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Visible:=True;
Image1.Visible:=True;
Label1.Caption:='Первая';
sleeo(3000);
Label1.Caption:='Вторая';
sleep(3000);
Label1.Caption:='Третяя';
sleep(3000);
Label1.Caption:='Четвертая';
end;
end.

вот....на саму кнопку..

[mihali4]

Через таймер:

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Visible:=True;
Image1.Visible:=Panel1.Visible;
Label1.Caption:='Первая';
Application.ProcessMessages;
Timer1.Enabled:=Panel1.Visible;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Caption='Первая' then
Label1.Caption:='Вторая' else
if Label1.Caption='Вторая' then
Label1.Caption:='Третья' else
if Label1.Caption='Третья' then
Label1.Caption:='Четвертая' else
if Label1.Caption='Четвертая' then
Timer11.Enabled:=False;
Application.ProcessMessages;
end;

[Wi1D]

Благадарю код помог!!!!!!!спасибо!!!!!!!