...
implementationuses UP;{$R *.dfm}procedure clstext();
begin
  MessageBox(0, '调用好使', '好使', MB_ICONWARNING);
  edit1.text:='';
end;...===================================
===================================
===================================
错误信息:undeclared identifier Edit1Missing operator or semicoloncould not compile used unit unit6.pas