Save to bitmap

Gemmer et panel med en opengl scene til en bitmap eller en jpeg. Det funker fint. Nu har jeg så brugt en MessageDlg til at spørge om brugeren vil overskrive billedet, hvis det findes i forvejen. Problemet er så, at der kommer et sort område, der hvor MessageDlg var på skærmen, på mit bitmap. Det hjælper ikke at gentegne hverken panel eller form. Nogen forslag, koden ser sådan ud:
procedure SavePanelGLSceneToBitmap;
var
  Bitmap :  TBitmap;
  sFileName : string;
  Extension:  STRING;
  JPEG    :  TJPEGImage;
begin
  if FormMain.SavePictureDialog.Execute then begin
    //sFileName := ExtractFilePath(Application.ExeName) + XPROGRAM;
    if FileExists(FormMain.SavePictureDialog.FileName) then begin
      if MessageDlg('Overwrite existing file ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
      Exit;
    end;

    Extension := UpperCase(ExtractFileExt(FormMain.SavePictureDialog.FileName));
    if Extension = '.JPG' then begin
      Bitmap := TBitmap.Create;
      JPEG := TJPEGImage.Create;
      JPEG.CompressionQuality := 80;  // fairly low since artifact don't matter
      try
        Bitmap.Width  := FormMain.PanelGLScene.Width;
        Bitmap.Height := FormMain.PanelGLScene.Height;
        // Copy the Panel area from the Form into a separate Bitmap
        Bitmap.Canvas.CopyRect(Rect(0,0, Bitmap.Width,Bitmap.Height),
                    FormMain.Canvas,
                    Rect(FormMain.PanelGLScene.Left, FormMain.PanelGLScene.Top,
                    FormMain.PanelGLScene.Left + FormMain.PanelGLScene.Width-1,
                    FormMain.PanelGLScene.Top  + FormMain.PanelGLScene.Height-1) );

        JPEG.Assign(Bitmap);
        JPEG.SaveToFile(FormMain.SavePictureDialog.FileName);
      finally
        JPEG.Free
      end
    end else  // end jpeg type - if bmp type
    if  Extension = '.BMP' then begin
      Bitmap := TBitmap.Create;
      try
        Bitmap.Width  := FormMain.PanelGLScene.Width; //- FormMain.CoolBar1.Width;
        Bitmap.Height := FormMain.PanelGLScene.Height - FormMain.CoolBar1.Height;
        Bitmap.PixelFormat := pf24bit;  // avoid palettes
        // Copy the Panel area from the Form into a separate Bitmap
        Bitmap.Canvas.CopyRect(Rect(0,0, Bitmap.Width,Bitmap.Height),
                  FormMain.Canvas,
                  Rect(FormMain.PanelGLScene.Left, FormMain.PanelGLScene.Top,
                  FormMain.PanelGLScene.Left + FormMain.PanelGLScene.Width-1,
                  FormMain.PanelGLScene.Top  + FormMain.PanelGLScene.Height-1) );

        Bitmap.SaveToFile(FormMain.SavePictureDialog.FileName);
      finally
        Bitmap.Free
      end;    // end try
    end;      // end extension
  end;        // end SavePictureDialog.Execute
end;