Necesito Ayuda con Printer.Canvas !!!

[[ArdiIIa]]

Bienvenido al foro.
A ver si así vale:

Código Delphi [-]

procedure TPrincipal.Button1Click(Sender: TObject);
Var I ,X , Y : integer;
begin
X := 2500;
Y := 900;
For I := 0 to Principal.ControlCount -1 DO
  If Principal.Controls[i] is TEdit then
    if TEdit(Principal.Controls[i]).Text <> ''then
      Begin
         Printer.Canvas.textout(X,Y,TEdit(Principal.Controls[i]).Text);
         Inc(Y,900);
      End;

end;