急求小票打印解决方法！！请大家帮忙！！

Question

procedure TForm1.ButtonPrintClick(Sender: TObject);
var
  PText:TextFile;
  i:integer;
begin
  Printer.Canvas.Font.Charset:=GB2312_CHARSET;
  AssignPRN(PText);
  Rewrite(PText);
  Printer.Canvas.Font.Name:='黑体';
  Printer.Canvas.Font.Size:=10;
  writeln(Ptext,'POS 票据');
  writeln(Ptext,'');
  writeln(Ptext,'品名  单价   数量   小计');
  For i:=1 to ADODataSetPJ.RecordCount do
    writeln(Ptext,ADODataSetPJ.FieldByName('pm').asString+
    ADODataSetPJ.FieldByName('dj').asString+
    ADODataSetPJ.FieldByName('sl').asString+
    ADODataSetPJ.FieldByName('hj').asString);
  writeln(Ptext,'');
  CloseFile(Ptext);
end;
报错如下：
[Error] Unit1.pas(35): Undeclared identifier: 'Printer'
[Error] Unit1.pas(36): Undeclared identifier: 'AssignPRN'

Answer 1

[Error] Unit1.pas(35): Undeclared identifier: 'Printer'
 uses 
  Printers;