procedure printmemo(s:tmemo;x,y,z:integer) ;
procedure Tfrmwritereport.printmemo(s:tmemo;x,y,z:integer);
var
i:integer;
begin
for i:=0 to s.Lines.Count-1do
begin
printer.Canvas.TextOut(x,y,s.lines.strings);
y:=y+z;
end;
end;
....
begin
printmemo(memo1,250,430,50);
end;
