procedure TForm1.Button1Click(Sender: TObject);
var
  h, m, s: word;
begin
  h:= StrToInt(Edit1.Text);  //  Записываем в переменную количество часов
  m:= StrToInt(Edit2.Text);  //  Записываем в переменную количество минут
  S:= StrToInt(Edit3.Text);  //  Записываем в переменную количество секунд
  m:= (h * 60) + m;  //  Считаем количество минут
  s:= (m * 60) + s;  //  Считаем количество секунд
  Label1.Caption:= 'Прошло ' + IntToStr(s) + ' сек.';  //  Выводим результат
end;

procedure TForm1.FormCreate(Sender: TObject);  //  Выводим высоту и ширину в заголовок формы
begin
  Form1.Caption:= 'Высота ' + IntToStr(Form1.Height) + ', ' + 'Ширина ' + IntToStr(Form1.Width);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Brush.Style:= bsVertical;  //  Назначаем заливку вертикальными линиями для кисти формы
  Form1.Canvas.Brush.Color:= clBlack;  //  Назначаем чёрный цвет кисти формы
  Form1.Canvas.Rectangle(10, 10, 200, 100);  //  Рисуем на форме прямоугольник
end;

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    Comments: TLabel;
    OKButton: TButton;
    procedure OKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

uses Unit2;

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
  Randomize;  //  Инициализация генератора случайных чисел
  //  Выставляем размер формы на весь экран
  Form1.Left:= 0;
  Form1.Top:= 0;
  Form1.Height:= Screen.Height;
  Form1.Width:= Screen.Width;
  //  Показали форму
  Form1.Show;
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pr: boolean;

implementation

{$R *.dfm}

function RGBToColor: TColor;  //  Функция возвращает случайный цвет
var
  R, G, B: Byte;
begin
  R:= Random(256);
  G:= Random(256);
  B:= Random(256);
  Result := B shl 16 or G shl 8 or R;
  if pr then  //  Последовательно меняем тип фигуры
    pr:= false
  else
    pr:= true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  If MessageDlg('Вы действительно хотите закрыть окно?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Application.Terminate;  //  Если ответ "да", закрываем приложение
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Canvas.Brush.Style:= bsSolid;  //  Выставили заполнение кисти сплошным
  Form1.Canvas.Brush.Color:= clBlack;  //  Цвет кисти чёрный
  Form1.Canvas.FillRect(Form1.Canvas.ClipRect);  //  Отчищаем форму от фигуры
  Form1.Canvas.Brush.Color:= RGBToColor;  //  Цвет кисти случайный
  if pr then  //  Рисуем прямоугольник
    Form1.Canvas.Rectangle(Random(Form1.Width), Random(Form1.Height), 200, 100)
  else  //  или рисуем эллипс
    Form1.Canvas.Ellipse(Random(Form1.Width), Random(Form1.Height), 200, 100);
end;

end.