Глючит класс

type
worker = class(Tobject)
public
name : string;
Age : integer;
address : string;
Constructor Create(N:string; A:integer; address:string);
Function GetProf:string; // читать профессию чувака
Procedure SetProf(newProf:string); // записать профессию чуваку
property prof : string read GetProf write SetProf;
end;

Function worker.GetProf:string;
begin
    GetProf:=self.prof;
end;
 
Procedure worker.SetProf(newProf:string);
begin
   prof:=newProf;
end;
 
Constructor worker.Create(N:string; A:integer; address:string);
begin
   self.name:= N;
   self.Age:= A;
   self.address:=address;
end;

procedure TForm1.Button1Click(Sender: TObject);
var   W1 , W2 : Worker;
fam, add, prof : string; let : integer;
begin
          fam:=  'Иванов'; add:= 'г. Москва';  let:= 22;
          W1:=Worker.Create(fam, let, add);
 
          prof:='Программист';
          W1.SetProf(prof); // вот эта строка глючит
      //    prof:= W1.GetProf;
          Showmessage(prof);
 
          fam:=  'Петров'; add:= 'г. Ленинград';  let:= 21;
          W2:= Worker.Create(fam, let, add);
 
          W1.Free;
          W2.Free;
end;

type
worker = class(Tobject)
 
   FProf : string; // Тут хранится профессия
   Function GetProf:string; // читать профессию чувака
   Procedure SetProf(newProf:string); // записать профессию чуваку
 
public
   name : string;
   Age : integer;
   address : string;
   Constructor Create(N:string; A:integer; address:string);
   property prof : string read GetProf write SetProf; // Можно обойтись и без геттера/сеттера
end;
 
function worker.GetProf:string;
begin
    GetProf := FProf;
end;
 
Procedure worker.SetProf(newProf:string);
begin
   FProf := newProf;
end;
 
 
// Вызывать - так:
          prof:='Программист';
          W1.prof := prof;
          Showmessage(W1.prof);

Procedure worker.SetProf(newProf:string);
begin
   prof:=newProf;
end;

type
 
worker = class(Tobject)
public
name : string;
data_birth : string;
prof : string;
Constructor Create(Nam, pro, data : string);
Function GetAge:integer;
property Age : integer read GetAge;
private
function CalculateAge(Birthday, CurrentDate: TDate): Integer;
end;
 
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  W1 , W2 : Worker;
 
implementation
 
{$R *.dfm}
 
Function worker.GetAge:integer;
begin
    GetAge:=CalculateAge(StrToDate(self.data_birth), Date)
end;
 
 
Constructor worker.Create(Nam, pro, data : string);
begin
   self.name:= Nam;
   self.prof:= pro;
   self.data_birth:=data;
end;
 
// вычисляем возраст по дате рождения и текущей дате
function worker.CalculateAge(Birthday, CurrentDate: TDate): Integer;
var
  Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
  DecodeDate(Birthday, Year, Month, Day);
  DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);
 
  if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
  begin
    Result := 0;
  end
  else
  begin
    Result := CurrentYear - Year;
    if (Month > CurrentMonth) then
      Dec(Result)
    else
    begin
      if Month = CurrentMonth then
        if (Day > CurrentDay) then
          Dec(Result);
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var fam, data, prof : string; let : integer;
begin
          fam:=  'Иванов';
          data:= '05.12.1985';
          prof:='Программист';
          W1:=Worker.Create(fam, prof, data);
 
          let:= W1.GetAge;
          Showmessage(inttostr(let));
 
          fam:=  'Степанов';
          data:= '12.06.1983';
          prof:='Инженер';
          W2:= Worker.Create(fam, prof, data);
 
          let:= W2.GetAge;
          Showmessage(inttostr(let));
          
          W1.Free;
          W2.Free;
end;