[roamer]

В D 2009 такой вариант прошел:

Код:

Type
   TMyRec2 = record
     sProp : string[20];
     R1 : real;
     R2 : real;
     function R1_plus_R2 : real;
     procedure ShowRes;
   end;

...

function TMyRec2.R1_plus_R2 : real;
begin
  Result:=R1+R2;
end;

procedure TMyRec2.ShowRes;
begin
  ShowMessage(sProp+' = '+FloatTostr(R1_plus_R2));
end;

........
........
........

procedure TForm1.SpeedButton2Click(Sender: TObject);
Var
  MyRec: TMyRec2;
  F : file of TMyRec2;
begin
  AssignFile(F,'C:\!_TMyRec2.dat');
  Rewrite(F);
  MyRec.sProp:='Сумма';
  MyRec.R1:=3.1415926;
  MyRec.R2:=MyRec.R1/3;
  Write(F,MyRec);
  CloseFile(F);
end;


procedure TForm1.SpeedButton3Click(Sender: TObject);
Var
  MyRec: TMyRec2;
  F : file of TMyRec2;
begin
  AssignFile(F,'C:\!_TMyRec2.dat');
  Reset(F);
  Seek(F,0);
  Read(F,MyRec);
  CloseFile(F);
  MyRec.ShowRes;
end;

Еще раз Спс Страдальцу.