新手请教一段代码，拜托帮忙

Question

出错好多帮忙看看
function TFrmPower.PassChk:boolean;
var
Child:TPassWordDlg1;
bn:integer;
ss1,ss2,ss3:string[100];
begin
Result:=False;
Child:=TPassWordDlg1.Create(Application);
bn:=Child.ShowModal;
ss1:=trim(Child.Edit1.Text);
ss2:=trim(Child.Edit2.Text);
ss3:=trim(Child.Edit3.Text);
Child.Destroy;
if bn=mrOK then
begin
userName:=ss1;
if Length(ss2)<4 then
begin
MessageDlg('用户名小于四个字',mtWarning,[mbOK],0);
exit;
end;if ss3<>ss2 then
begin
MessageDlg('密码不正确',mtWarning,[mbOK],0);
exit;
end
else
Result:=TRUE;
end;
end;
这样提示的
[Error] WndPower.pas(81): Undeclared identifier: 'TPassWordDlg1'
[Error] WndPower.pas(87): Missing operator or semicolon
[Error] WndPower.pas(88): Missing operator or semicolon
[Error] WndPower.pas(89): There is no overloaded version of 'Trim' that can be called with these arguments
[Error] WndPower.pas(93): ';' expected but 'IF' found
[Error] WndPower.pas(95): Undeclared identifier: 'userName'
[Error] WndPower.pas(96): Undeclared identifier: 'ss2'
[Error] WndPower.pas(102): Undeclared identifier: 'ss3'
[Error] WndPower.pas(108): Undeclared identifier: 'Result'
[Error] WndPower.pas(109): '.' expected but ';' found

Answer 1

1、没有声明TPassWordDlg1类
2、缺少;
3、同上
4、没有这种调用trim方法的格式，
5、应该使用;去却发现了if
6、userName没有声明
7、ss2没有声明
8、ss3没有声明
9、result没有申明
10、需要.建议，自己修改，根据错误出现的行数该。

Answer 2

1。
找到包含该TPassWordDlg1 [外部控件还是自定义的？]类的单元，然后在下面的uses处引用。
interface
uses
2。
 找个地方定义userName，估计是全局变量。