Создать класс, который описывает объект СТУДЕНТ и заполнить его свойства

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TBook = class
PagesCount: integer;
Title, Author: string;
  function CompareWithBook(OtherBook: TBook): integer;
  procedure ShowTitle;
  constructor Create(NewTitle, NewAuthor: string; NewPagesCount: integer);
   destructor Destroy;
    end;
 
 
 
var
  Form1: TForm1;
  MyBook1, MyBook2, MyBook: TBook;
   a: integer;
implementation
 
{$R *.dfm}
 
{ TBook }
 
function TBook.CompareWithBook(OtherBook: TBook): integer;
  begin
 Result := Abs(OtherBook.PagesCount - Self.PagesCount);
  end;
 
constructor TBook.Create(NewTitle, NewAuthor: string;
  NewPagesCount: integer);
  begin
Title := NewTitle;
Author := NewAuthor;
PagesCount := NewPagesCount;
  end;
 
procedure TBook.ShowTitle;
begin
 ShowMessage(Author + ' "' + Title + '"');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var MyBook1, MyBook2,MyBook: TBook;
    a: integer;
MyBook1 := TBook.Create('ООП на Delphi ', 'Мой сосед', 1000);
MyBook2 := TBook.Create('ООП на Delphi 2', 'Мой сосед', 1300);
a := MyBook1.CompareWithBook(MyBook2);
ShowMessage(IntToStr(a));
MyBook1.ShowTitle;
MyBook2.ShowTitle;
end;

type TStudents = class
  NumZach, Family, Name, Phone: String;
  BirthDay, Entrance: TDate;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 TStudent=class
  Name, Fam, Tel:string;
  NomerZach:integer;
  DateRog, DataPostupl:TDate;
  constructor create(Name, Fam, Tel:string; NomerZach:integer; DateRog,DataPostupl:TDate);
  function toString:string;
end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TStudent }
 
constructor TStudent.create(Name, Fam, Tel:string; NomerZach:integer; DateRog,DataPostupl:TDate);
begin
self.Name:=Name;
self.Fam:=Fam;
self.Tel:=Tel;
self.NomerZach:=NomerZach;
self.DateRog:=DateRog;
self.DataPostupl:=DataPostupl;
end;
 
function TStudent.toString: string;
begin
result:=DateRog;//не знаю как оформить тут сравнение дат для выбора максимальной
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var stud1,stud2:TStudent;
begin
 stud1:=TStudent.Create('фамилия','имя',155892,'15.09.1997');
 stud2:=TStudent.Create('фамииилия','имяяя',158248,'15.10.1991');
 // и как записать правильно вывод в showmessage
end;
 
end.

constructor create(Name, Fam, Tel:string; NomerZach:integer; DateRog,DataPostupl:TDate);

stud1:=TStudent.Create('фамилия','имя',155892,'15.09.1997');

Очень печально видеть студентов, которым даже шпаргалки не помогают.