帮我看看这段代码

[luosha80]

unit persrec;

interface
uses Classes, dialogs, sysutils;

type
TPersonRec = packed record //声明一个TPersonRec记录
FirstName: String[20];
LastName: String[20];
MI: String[1];
BirthDay: TDateTime;
Age: Integer;
end;

//创建一个TFileStream派生类TPersonRec
//TRecordStream从TFileStream派生而来，为TPersonRec进行文件的输入/输出
TRecordStream = class(TFileStream);
private
function GetNumRecs: Longint;
function GetCurRec: Longint;
procedure SetCurRec(RecNo: Longint);
protected
function GetRecSize: Longint;virtual;
public
function SeekRec(RecNo: Longint; Origin: Word): Longint;
function WriteRec(const Rec): Longint;
function AppendRec(const Rec): Longint;
function ReadRec(var Rec): Longint;
procedure First;
procedure Last;
procedure NextRec;
procedure PreviousRec;
property NumRecs: Longint read GetNumRecs;
//NumRecs显示了文件流中的记录数
property CurRec: Longint read GetCurRec write SetCurRec;
//CurRec反映了文件流中的当前记录
end;

implementation

function TRecordStream. 为什么我在这打点出不来我在上面声明的那些内容呢？？？

[Frend]

去掉类名后面的分号
如下：TRecordStream = class(TFileStream);
改成TRecordStream = class(TFileStream)

[sysu]

TRecordStream = class(TFileStream); // 多了个分号
->
TRecordStream = class(TFileStream)