The easiest way to print a couple of strings is using the function AssignPrn from the Printers unit.
Use the following function e.g. like this
PrintStrings(Memo1.Lines);to print out a memo field.
uses Printers;
// ..
procedure PrintStrings (S: TStrings);
var
Prn : TextFile;
i : word;
begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i:=0 to S.Count-1 do
writeln(Prn, S.Strings[i]);
finally
CloseFile(Prn);
end;
except
on EInOutError do MessageDlg('Fehler!', mtError, [mbOk], 0);
end;
end;