Ticket muy deja mucho espacio en blanco

[ysaacn]

Necesito Ayuda urgente tengo un ticket que al final deja mucho espacio en blanco y no lo puedo controlar
anexo parte del codigo

with Printer do
begin
Canvas.Font.Size := 9;
Canvas.Font.Name := 'Courier New';
Orientation := poLandscape ;
Y := 10;
X := 100;
Lineas := Memo1.Lines.Count - 1;
BeginDoc;
for I := 1 to lineas do begin
Canvas.TextOut(X,Y, Memo1.Lines.Strings[i]);
Y := Y + Canvas.TextHeight('Yy');
end;
//EndDoc;
printer.EndDoc;
end;
Memo1.Lines.Clear ;