问几个打印和保存的问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Button2: TButton;
    Save1: TSaveDialog;
    Print1: TPrintDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
  xy1,xy2,xy3,xy4,xy5,xy6: string;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  WITH image1.Canvas DO
  BEGIN
  Pen.Style := pssolid;
  pen.color:=clred;
  FillRect(image1.Canvas.ClipRect);
  moveto(0,0);
  lineto(strtoint(edit1.text), strtoint(edit2.text));
  LineTo(strtoint(edit3.text), strtoint(edit4.text));
  LineTo(strtoint(edit5.text), strtoint(edit6.text));
  end;
end;procedure TForm1.Button2Click(Sender: TObject);begin
image1.Canvas.FillRect(image1.Canvas.ClipRect);
end;end.
我想把EDIT[I]的数据保存到num_i.txt里面，顺便把IMAGE1和EDIT[I]的数据都打印出来，谁能帮我看看怎么写比较好？

Answer 1

找了段打印的程序,调试下来N多错误，谁帮我改改
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
prntext:system.text;
begin
   if print1.execute then
   assignprn(prntext); 
   rewrite(prntext);    
   for i:=1 to 6 do
   writeln(prntext,edit[i].text);   system.close(prntext);
end;