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;