Ребята выручайте!

[faraon_forever]

Здравствуйте. Ребята помогите пожалуйста срочно завтра ГОС экзамен. Будут вот такие задачи :

написать программу "Скорость"
написать программу "Выбор"
написать программу "Цвет"

Пожалуйста напишите как их сделать на delphi

[Stilet]

Примерно так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, ColorBox;

type

  { TForm1 }

  TForm1 = class(TForm)
    ColorListBox1: TColorListBox;
    RadioGroup1: TRadioGroup;
    procedure ColorListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var s,t:double;
begin
  s:=100; t:=10;
  Caption:=format('Скорость = %2.5f',[s/t]);
  with RadioGroup1 do begin
    Items.Append('1');
    Items.Append('2');
    Items.Append('3');
    OnClick:=RadioGroup1Click;
  end;
end;

//"Цвет"
procedure TForm1.ColorListBox1Click(Sender: TObject);
begin
  Caption:=ColorListBox1.ColorNames[ColorListBox1.ItemIndex];
end;

//"Выбор"
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Caption:=RadioGroup1.Items[RadioGroup1.ItemIndex];
end;

end.

Компоненты: Радиогруп для выбора, колорбокс для цвета.
Выборы отражаются в заголовке.
Скорость расчитывается при запуске.