Problem beim Speichern einer mit Canvas gezeichneten Grafik

[blender]

Danke.
Ich habe es ausprobiert.
Die datei wird gespeichert.
Trotzdem gibt es noch zwei Probleme:
1.
Die endung wird nicht automatisch hinzugefügt.
Es müsste also so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap : TBitmap;
begin
  if SaveDialog1.Execute then
    begin
      Bitmap:=TBitmap.Create;
      Try
        Bitmap.Width:=PaintBox1.ClientWidth;
        Bitmap.Height:=PaintBox1.ClientHeight;
        BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
               PaintBox1.Canvas.Handle,0,0,SRCCOPY);
        Bitmap.SaveToFile(SaveDialog1.FileName + '.bmp');
      Finally
        Bitmap.Free;
      end;
    end;
end;

Tut es der Filter auch allein?

2.
Da das Bild auf den Hintergrund gezeichnet wird, wird, wenn ich minimiere, der Hintergrund wieder Grau.
Das Passiert auch, wenn man ein Fenster darüber zieht.
Also auch beim SaveDialog.
Kann man das irgendwie beheben?