1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function GetFreeFilenameJPG: string;
var found: Boolean; FileName: string; i : integer;
begin
  found := false; i := 1000; //PIC1000.jpg
  while found = false do begin
    FileName := Form1.Pfad+ 'PIC' + inttostr( i )+'.jpg';
    if FileExists( FileName ) = true then i := i + 1
    else found := true; end;
  GetFreeFilenameJPG := FileName;
end;

procedure TForm1.SpeicherButtonClick(Sender: TObject);
var endung : string; Bild : TImage;  B : TBitmap;
begin
  endung:='';
  caption:= ' ScreenShot - 20090602 - ';
if CheckBox1.Checked=true then
BEGIN
  dateiname:= GetFreeFilenameJPG;
  JPGSpeichern(Screenbild);
END ELSE
BEGIN
  Speicherdialog.Filename:='';
  Speicherdialog.InitialDir:=Pfad+'Bilderdatei';
  if Speicherdialog.execute then dateiname:=Speicherdialog.FileName;

  endung:=ExtractFileExt(Dateiname);
  if endung= '.BMP' then BitmapSpeichern(Screenbild);
  if endung= '.JPG' then JPGSpeichern(Screenbild);
  if endung= '.WMF' then MetaFileSpeichern(Screenbild);
END;
  Sleep(3000);
  caption:= caption + ExtractFileName(dateiname)+' - '+   IntToStr(Filesize(dateiname))+' Bytes';
end;