Описать логическую функцию erlier(t1,t2) для проверки, предшествует ли время t1 времени t2 (в рамках суток) и проиллюстрировать её работу в программе — Delphi(Делфи)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

type
  Time = record
    h: 0 .. 23;
    m, s: 0 .. 59 end;

  var
    t_1: Time;
    t_2: Time;

    function Earlier(T1, T2: Time): Boolean;
    begin
      if T1.h <> T2.h then
        Result := T1.h < T2.h
      else if T1.m <> T2.m then
        Result := T1.m < T2.m
      else if T1.s <> T2.s then
        Result := T1.s < T2.s
    end;

    begin
      t_1.h := StrToInt(Edit1.Text);
      t_1.m := StrToInt(Edit2.Text);
      t_1.s := StrToInt(Edit3.Text);
      t_2.h := StrToInt(Edit4.Text);
      t_2.m := StrToInt(Edit5.Text);
      t_2.s := StrToInt(Edit6.Text);
      ShowMessage('t_1 раньше, чем t_2 : ' + BoolToStr(Earlier(t_1,
        t_2), True));
    end;

end.