How do I print from a Memo to a Generic Text-only printer?

I need to print some text from a memo on a matrix printer using generic Text-only printer driver. How can I do this?

You can print directly into printer port LPT1.. or network share name \\computer\queue

example :



var f1:textfile;

begin

assignfile(f1,'LPT1');

assignfile(f1,'\\computer\queue');

rewrite(f1);

// this part you can replace to print text in memo object.

writeln(f1,'aa');

closefile(f1);

end;