Люди, шарящие за программу лазарус, помогите! Болела, и вот задания дали, как его вообще делать

program Project1;

{$mode objfpc}{$H+}

uses
  Interfaces, Forms, StdCtrls, SysUtils, Classes, Controls;

type
  TMainForm = class(TForm)
  private
    RouteBox: TComboBox;
    TimeType: TRadioGroup;
    Btn: TButton;
    ResultLabel: TLabel;
    procedure BtnClick(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  Width := 520;
  Height := 300;
  Caption := 'Расписание автобусов';

  RouteBox := TComboBox.Create(Self);
  RouteBox.Parent := Self;
  RouteBox.Left := 30;
  RouteBox.Top := 30;
  RouteBox.Width := 440;
  RouteBox.Style := csDropDownList;
  RouteBox.Items.Add('Новосибирск - Новокузнецк');
  RouteBox.Items.Add('Новокузнецк - Новосибирск');
  RouteBox.Items.Add('Новосибирск - Томск');
  RouteBox.Items.Add('Томск - Новосибирск');
  RouteBox.Items.Add('Новосибирск - Кемерово');
  RouteBox.Items.Add('Кемерово - Новосибирск');
  RouteBox.Items.Add('Новосибирск - Красноярск');
  RouteBox.Items.Add('Красноярск - Новосибирск');
  RouteBox.ItemIndex := 0;

  TimeType := TRadioGroup.Create(Self);
  TimeType.Parent := Self;
  TimeType.Left := 30;
  TimeType.Top := 70;
  TimeType.Width := 440;
  TimeType.Height := 90;
  TimeType.Caption := 'Выберите время';
  TimeType.Items.Add('Отправления');
  TimeType.Items.Add('Прибытия');
  TimeType.ItemIndex := 0;

  Btn := TButton.Create(Self);
  Btn.Parent := Self;
  Btn.Left := 30;
  Btn.Top := 180;
  Btn.Width := 160;
  Btn.Height := 35;
  Btn.Caption := 'Показать';
  Btn.OnClick := @BtnClick;

  ResultLabel := TLabel.Create(Self);
  ResultLabel.Parent := Self;
  ResultLabel.Left := 30;
  ResultLabel.Top := 230;
  ResultLabel.Width := 440;
end;

procedure TMainForm.BtnClick(Sender: TObject);
var
  DepTime, ArrTime, S: string;
begin
  case RouteBox.ItemIndex of
    0:
      begin
        DepTime := '08:00';
        ArrTime := '14:30';
      end;
    1:
      begin
        DepTime := '09:00';
        ArrTime := '15:30';
      end;
    2:
      begin
        DepTime := '07:30';
        ArrTime := '12:00';
      end;
    3:
      begin
        DepTime := '13:00';
        ArrTime := '17:30';
      end;
    4:
      begin
        DepTime := '10:15';
        ArrTime := '15:45';
      end;
    5:
      begin
        DepTime := '11:20';
        ArrTime := '16:50';
      end;
    6:
      begin
        DepTime := '06:45';
        ArrTime := '18:00';
      end;
    7:
      begin
        DepTime := '08:30';
        ArrTime := '19:45';
      end;
  end;

  if TimeType.ItemIndex = 0 then
    S := 'Время отправления: ' + DepTime
  else
    S := 'Время прибытия: ' + ArrTime;

  ResultLabel.Caption := S;
end;

var
  MainForm: TMainForm;

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

program Project2;

{$mode objfpc}{$H+}

uses
  Interfaces, Forms, StdCtrls, SysUtils, Classes, Controls;

type
  TMainForm = class(TForm)
  private
    LabelN, LabelX, LabelY, LabelZ, LabelK, ResultLabel: TLabel;
    EditN, EditX, EditY, EditZ, EditK: TEdit;
    Category: TRadioGroup;
    Btn: TButton;
    procedure BtnClick(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  Width := 520;
  Height := 420;
  Caption := 'Расчет стипендии';

  LabelN := TLabel.Create(Self);
  LabelN.Parent := Self;
  LabelN.Left := 30;
  LabelN.Top := 25;
  LabelN.Caption := 'Количество студентов';

  EditN := TEdit.Create(Self);
  EditN.Parent := Self;
  EditN.Left := 230;
  EditN.Top := 20;
  EditN.Width := 120;

  LabelX := TLabel.Create(Self);
  LabelX.Parent := Self;
  LabelX.Left := 30;
  LabelX.Top := 65;
  LabelX.Caption := 'X рублей';

  EditX := TEdit.Create(Self);
  EditX.Parent := Self;
  EditX.Left := 230;
  EditX.Top := 60;
  EditX.Width := 120;

  LabelY := TLabel.Create(Self);
  LabelY.Parent := Self;
  LabelY.Left := 30;
  LabelY.Top := 105;
  LabelY.Caption := 'Y рублей';

  EditY := TEdit.Create(Self);
  EditY.Parent := Self;
  EditY.Left := 230;
  EditY.Top := 100;
  EditY.Width := 120;

  LabelZ := TLabel.Create(Self);
  LabelZ.Parent := Self;
  LabelZ.Left := 30;
  LabelZ.Top := 145;
  LabelZ.Caption := 'Z рублей';

  EditZ := TEdit.Create(Self);
  EditZ.Parent := Self;
  EditZ.Left := 230;
  EditZ.Top := 140;
  EditZ.Width := 120;

  LabelK := TLabel.Create(Self);
  LabelK.Parent := Self;
  LabelK.Left := 30;
  LabelK.Top := 185;
  LabelK.Caption := 'K рублей';

  EditK := TEdit.Create(Self);
  EditK.Parent := Self;
  EditK.Left := 230;
  EditK.Top := 180;
  EditK.Width := 120;

  Category := TRadioGroup.Create(Self);
  Category.Parent := Self;
  Category.Left := 30;
  Category.Top := 220;
  Category.Width := 440;
  Category.Height := 100;
  Category.Caption := 'Категория сдачи сессии';
  Category.Items.Add('Только с пятерками');
  Category.Items.Add('Только одна четверка');
  Category.Items.Add('Без троек');
  Category.Items.Add('С тройками');
  Category.ItemIndex := 0;

  Btn := TButton.Create(Self);
  Btn.Parent := Self;
  Btn.Left := 30;
  Btn.Top := 335;
  Btn.Width := 160;
  Btn.Height := 35;
  Btn.Caption := 'Рассчитать';
  Btn.OnClick := @BtnClick;

  ResultLabel := TLabel.Create(Self);
  ResultLabel.Parent := Self;
  ResultLabel.Left := 220;
  ResultLabel.Top := 345;
  ResultLabel.Width := 260;
end;

procedure TMainForm.BtnClick(Sender: TObject);
var
  N, Summa, Stipendiya: Integer;
begin
  N := StrToIntDef(EditN.Text, 0);

  case Category.ItemIndex of
    0: Stipendiya := StrToIntDef(EditX.Text, 0);
    1: Stipendiya := StrToIntDef(EditY.Text, 0);
    2: Stipendiya := StrToIntDef(EditZ.Text, 0);
    3: Stipendiya := StrToIntDef(EditK.Text, 0);
  end;

  Summa := N * Stipendiya;
  ResultLabel.Caption := 'Сумма: ' + IntToStr(Summa) + ' руб.';
end;

var
  MainForm: TMainForm;

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.