设置打印时，系统编译报告assign和printer为非法变量，（附源代码），不懂！求助！(50分)

procedure TForm1.Print1Click(Sender: TObject);
var
line:integer;
printtext:system.text;{定义文本打印文件}
begin

printdialog1.options:=[poselection,poprinttofile,pohelp,popagenums];
with printdialog1do

if execute then

begin

AssignPrn(printtext);
rewrite(printtext);
printer.canvas.font:=memo1.Font;
{循环打印文本}
for line:=0 to memo1.lines.count-1do

writeln(printtext,memo1.lines[line]);
closefile(printtext);
end;

end;

出现以下错误：
Undeclared identifier: 'AssignPrn'
Undeclared identifier: 'printer'
不能通过编译，请问问题出现在哪里？

在Uses里加上printers就行了

首先在uses添加printers单元
然后定义变量，例如a：Tprinter；
应用时先a:=Tprinter.create;

象c语言中过程和函数是在头文件中定义的一样，delphi(pascal)中的过程和函数是在单元
中定义的，要使用某一个函数必须在程序最头上用uses声明引用的单元（system 单元缺省引用）
你的程序中使用的过程assignprn是在printers单元中定义的所以必须在程序头部uses部分
加上引用printers单元，printer属性也是在printers单元中定义的。

接受答案了.