1:
2:
3:
4:
5:
6:
7:

procedure TForm1.SaveImage;
begin
  if savePictureDialog1.Execute=true then
  begin
    image1.Picture.SaveToFile(savePictureDialog1.fileName);
  end;
end;					

1:
2:
3:
4:

procedure Form1.Button1Click(Sender: TObject);
begin

end;					

1:
2:
3:
4:
5:
6:
7:

procedure Form1.Button1Click(Sender: TObject);
begin
  if savePictureDialog1.Execute=true then
  begin
    // hier soll die datei gespeichert werden
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure Form1.Button1Click(Sender: TObject);
begin
  if savePictureDialog1.Execute=true then
  begin
    // hier soll die datei gespeichert werden
    image1.Picture.SaveToFile(savePictureDialog1.fileName);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

// die unit >Graphics< in die uses aufnehmen falls noch nicht vorhanden (für TBitmap)
procedure TForm1.Button1Click(Sender: TObject);
var bmp:TBitmap;
    sdRect:TRect;

begin
  try
    bmp:=TBitmap.Create;
    bmp.PixelFormat:=pf32bit; // alle freiheiten der farblichen gestaltung
    bmp.Width:=form1.ClientWidth;
    bmp.Height:=form1.ClientHeight;
    sdRect:=Rect(0,0,form1.ClientWidth,form1.ClientHeight);
    bmp.Canvas.CopyRect(sdRect,form1.Canvas,sdRect);
    if savePictureDialog1.Execute=true then
    begin
      // hier soll die datei gespeichert werden
      bmp.SaveToFile(SavePictureDialog1.FileName);
    end;
  finally
    bmp.Free;
  end;
end;