Помогите, не хочет работать, в чём ошибка

[Rambo98]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }

public
{ Private declarations }

Ychenik = class
public
Student:string;
Grupa:string;
ChisloYchenik:integer;
constructor create;
end;
var
Form1: TForm1;
Ychnik1:Ychenik;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Ychnik1.Student:=Edit1.Text;
Ychnik1.Grupa:=Edit2.Text;
Ychnik1.ChisloYchenik:=StrToInt(Edi t3.Text);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add('Название студенты'+ Ychnik1.Student +'Название группы'+ Ychnik1.Grupa + 'Число студентов');
end;

end.

[digitalis]

Определение нового класса - обязательное условие ? А так не пойдет ?

type
   Ychenik = record
     Student:string;
     Grupa:string;
     ChisloYchenik:integer;
   end;

Не могу не отметить, что простое копирование из Edit в Memo - задание довольно глупое, впрочем, как и большинство учебных задани.