Print memo.

uses

Printers;

procedure TForm1.Print2Click(Sender: TObject);

var

sMemo : String;

filename : TextFile;

x : Integer;

begin

sMemo := Memo1.Text;

If PrinterSetupDialog1.Execute then begin

AssignPrn(filename);

Rewrite(filename);

for x := 0 to Memo1.Lines.Count - 1 do

Writeln(filename, Memo1.Lines[x]);

CloseFile(filename);

end;

end;

end.