Printing Delphi

Title: print text?
var
F: TextFile;
begin
AssignFile(F, 'LPT1');// LPT2,COM1,COM2...
Rewrite(F);
Writeln(F, 'Hello');
Writeln(F, 'There!');
Writeln(F, #12);
CloseFile(F);
end;