新手 想请人看看我这段程序为什么报错？

Question

unit Unit1;interfaceuses
  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;var
  Form1: TForm1;implementation{$R *.dfm}
type
  TRec = record
    name: string[12];
    age:word;
    function RecShow:string;
end;
function TRec.RecShow:string;
const
  str = '&s今年%d岁了';
begin
  result:=format(str,[name,age]);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  Rec:TRec;
begin
  rec.name:='离散';
  rec.age:='18';
  showmessage(rec.recshow);
end;end.

Answer 1

我是新手，請問下你往RECORD裏面加了什麼？？？

Answer 2

rec.age:='18'; 改成rec.age:=18;word是2个字节的整数吧 

Answer 3

function TRec.RecShow:string;
const
  str = '&s今年%d岁了';
begin
  result:=format(str,[name,age]);
end;
要将str改为'%s今年%d岁了'吧。

Answer 4

rec.age:='18'; 改为rec.age := 18; 

Answer 5

数据类型不对。。REC.AGE是word类型的。。'18'是字符型的。