teechartgrafik in groupbox speichern

[Hartfrid Krause]

Das Speichern der bitmap im selben Unterverzeichnis wie das Gesamtprojekt klappt mit:

procedure Tform31.Button1Click(Sender: TObject);
var Bitmap: TBitmap;
Rect: TRect;
begin
Rect.Left:= 0;
Rect.Top:= 0;
Rect.bottom:= groupbox1.Height;
Rect.Right:= groupbox1.Width;
Bitmap := TBitmap.Create;
Bitmap.SetSize(Groupbox1.Width, Groupbox1.Height);
Bitmap.Canvas.CopyRect(Rect,TNewGroupBox(groupbox1 ).Canvas, Rect);
Bitmap.SaveToFile('123name.bmp');
Bitmap.Free;
end;

Wie manipuliere ich die Einstellung, dass ich zunächst einen freien Namen wähle und dann den Speicherort?
In der vorliegenden Version wird beim Speichern einer 2. Grafik natürlich die Datei 123name.bmp überschrieben.