Formular als JPEG Speichern

[poterp]

Danke Xaromz,
ich habe deine Methode Probiert uzw:
procedure SaveJPEG(Form: TCustomForm; const Path: String);
var
Bitmap: TBitmap;
JPEG: TJPEGImage;
begin
Bitmap := Form.GetFormImage;
JPEG := TJPEGImage.Create;
JPEG.Assign(Bitmap);
JPEG.SaveToFile(Path);
JPEG.Free;
Bitmap.Free;
end;


Aufzurufen so:
Delphi-Quellcode: markieren
SaveJPEG(Form1, 'C:\Screenshot.jpg');

und ich bekomme ein Mehrere Fehler meldung.
soll ich vorher eine Function GETImage deklarieren???

danke in Voraus