procedure TForm1.Speichern1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := Paintbox1.Width;
Bitmap.Height := Paintbox1.Height;
Bitmap.Canvas.CopyRect(Bounds(0,0,bitmap.Width, Bitmap.Height),
PaintBox1.Canvas, PaintBox1.ClientRect);
Bitmap.SaveToFile('Pfad\Test.bmp');
end;
Das wäre jetzt mit der Bitmap bloß ohne den Dialog