Die Delphi Online-Hilfe biete folgendes Beispiel:
Delphi-Quellcode:
var
jp: TJPEGImage;
//Requires the "jpeg" unit added to "uses" clause.
begin
jp := TJPEGImage.Create;
try
with jp
do
begin
Assign(Image1.Picture.Bitmap);
SaveToFile('
c:\oneeye.jpg')
end;
finally
jp.Free;
end;
Bei dir fehlt also nur ein .Bitmap bei deinem Assign Aufruf