function PrintBill( TTime : TDateTime; AT : Byte; Amount : SmallInt; LaneNo : Byte; EmpNo : string ) : Boolean;
var
f : TextFile;
i : Byte;
begin
AssignFile( f, 'LPT1' );
ReWrite( f );
for i := 1 to 8 do Writeln( f );
Write( f, ' ' + IntToStr( LaneNo ) );
Writeln( f, ' ' + EmpNo );
for i := 1 to 2 do Writeln( f );
Write( f, ' ' + IntToStr( AT ) );
Writeln( f, ' ' + IntToStr( Amount ) );
for i := 1 to 2 do Writeln( f );
Writeln( f, ' ' + FormatDateTime( dfDate, TTime ) );
for i := 1 to 1 do Writeln( f );
Writeln( f, ' ' + FormatDateTime( dfTime, TTime ) );
for i := 1 to 7 do Writeln( f );
CloseFile( f );
end;