新手关于面向对象的问题，请各位大侠帮忙！

[weidongo]

这是我编的一段代码：
program console10;

{$APPTYPE CONSOLE}

//uses SysUtils;

type
man=class
public
name,address:string;
procedure who;
procedure say;
end;

procedure man.who;
begin
writeln('Who are you?');
readln(name);
writeln('Where are you live?');
readln(address);
end;

procedure say;
begin
writeln('Hello');
write(name);
write('you address is ');
write(address);
end;


var
name,address:string;
weidongo:man;

begin
{ TODO -oUser -cConsole Main : Insert code here }

weidongo:=man.Create;
weidongo.who;
weidongo.say;

end.

可是编译时却报错，如下：
[Error] console10.dpr(26): Undeclared identifier: 'name'
[Error] console10.dpr(28): Undeclared identifier: 'address'
[Error] console10.dpr(12): Unsatisfied forward or external declaration: 'man.say'

[weidongo]

原来在实例化类方法时还要在方法名前加上类名，谢谢大家的热心帮忙！

[weidongo]

请大侠们帮兄弟一把吧！

[netcha]

高手，直接NoteBook写了后拿编译器编译的吧

[zplinze]

应该是procedure man.say; 不是procedure say;
就可以运行了

[cmain83]

program console10;

{$APPTYPE CONSOLE}

//uses SysUtils;
var
name,address:string;


type
man=class
public
name,address:string;
procedure who;
procedure say;
end;

procedure man.who;
begin
writeln('Who are you?');
readln(name);
writeln('Where are you live?');
readln(address);
end;

procedure man.say;
begin
writeln('Hello');
write(name);
write('you address is ');
write(address);
end;

var
weidongo:man;

begin
{ TODO -oUser -cConsole Main : Insert code here }

weidongo:=man.Create;
weidongo.who;
weidongo.say;

end.

[jacky_shen]

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

type
TMan = class
public
Name, Addr: string;
procedure Who;
procedure Say;
end;

procedure TMan.Say;
begin
Writeln('Who are you?');
Readln(Name);
Writeln('Where are you live?');
Readln(Addr);
end;

procedure TMan.Who;
begin
Writeln('Hello');
Write(Name);
Write('you address is ');
Write(Addr);
end;

var
Weidongo: TMan;

begin
{ TODO -oUser -cConsole Main : Insert code here }

Weidongo := TMan.Create;
Weidongo.Who;
Weidongo.Say;
Weidongo.Free;

end.