Помогите решить задачку

[Екатерина66]

Разработать приложение «красно-желто-зеленая форма».
При запуске приложения должна появляться форма серого цвета с заголовком «исходная форма» и кнопками «Red», «Yellow» и «Green». Около каждой кнопки должна быть поясняющая надпись, например, «Нажмите на эту кнопку и форма станет красного цвета».
Изначально допускается нажатие на любую из кнопок. После нажатия форма должна изменить цвет и заголовок соответственно нажатой кнопке.
В дальнейшем:
• после нажатия на кнопку «Red» доступной должна быть только кнопка «Yellow» (а «Red» и «Green» – недоступными);
• после нажатия на кнопку «Yellow» доступной должна быть только кнопка «Green» (а «Red» и «Yellow» – недоступными);
• после нажатия на кнопку «Green» доступной должна быть только кнопка «Red» (а «Yellow» и «Green» – недоступными).

[VVM]

Вот мой вариант.

[Disel]

Вот мой вариант:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color:=clred;
Button1.Enabled:=false;
Button2.Enabled:=true;
Button3.Enabled:=false;
Form1.Caption:='Red';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Color:=clyellow;
Button1.Enabled:=false;
Button2.Enabled:=false;
Button3.Enabled:=true;
Form1.Caption:='Yellow';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Color:=clGreen;
Button1.Enabled:=true;
Button2.Enabled:=false;
Button3.Enabled:=false;
Form1.Caption:='Green';
end;

Во вложении весь исходник

[betirsolt]

а вот и готовая прога))))

[Екатерина66]

Спасибо вам большое!В первом варианте были ошибочки в 1ом и 2ом условии.А второй вариант правильный!приложение работает

[VVM]

В первом варианте были ошибочки

Я их уже давно исправил и перезалил =)