Problem beim Speichern einer mit Canvas gezeichneten Grafik

[blender]

Wie sieht es mit einem SaveDialog aus?

Etwa so?

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Try
    Bitmap.Width:=PaintBox.ClientWidth;
    Bitmap.Height:=PaintBox.ClientHeight;
    BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
           PaintBox.Canvas.Handle,0,0,SRCCOPY);
    Bitmap.SaveToFile(SaveDialog1);
  Finally
    Bitmap.Free;
    end;

Wie gesagt, ich bin ein Anfänger.