Formularinhalt in einem Ordner speichern

[alnourx]

Hallo,

Ich bin Delphiangänger, und momentan versuche ich diese wundarbare Sparche zu lernen, und ich hoffe, dass ihr mir dabei helft.
Ok, mein Problem lautet:
Ich wollte einen Formularinhalt als Bild JPEG in einem Ordner speichern, und das ging ganz gut, aber aber wenn ich einen anderen Formularinhalt speichern wollte, wird der erste Formularinhalt überschrieben. Wie kann ich mehrere Formularinhalte in einem Ordner speichern??
für euere Vorschläge danke ich euch im Voraus.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,jpeg ;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private-Deklarationen }
    a,b,c: real;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
     a := StrToFloat(Edit1.text);
     b := StrToFloat(Edit2.text);
     c := a * b;
     Edit3.Text := FloatToStr(c);
end;

procedure SaveJPEG(Form: TCustomForm; const Path: String);

var 
  Bitmap: TBitmap; 
  JPEG: TJPEGImage; 
begin 
  Bitmap := Form.GetFormImage; 
  JPEG := TJPEGImage.Create;
  JPEG.Assign(Bitmap); 
  JPEG.SaveToFile(Path); 
  JPEG.Free;
  Bitmap.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  SaveJPEG(Self, 'C:\Dokumente und Einstellungen\BEN\Desktop\Delphi5\Form1.jpg');
 end;
end.