Desktop bild erstellen

[N47R0N]

also ich habe nur ma so aus spass vor das ein programm nach einer weile ein bild von meinem momentanen screen macht.

da habe ich mir mit etwas hilfe das hier zusammengebastelt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var DeskHw,DeskHdC : Longint;
begin
DeskHw:=getdesktopwindow;
DeskHdc:=getdc(deskHw);
img.height:=screen.Height;
img.width:=screen.Width;
BitBlt(img.Canvas.Handle,0,0,screen.Width,
screen.Height,DeskHdc,0,
0,SRCCOPY);
sleep(200);
if fileexists('screen.jpg') then deletefile('screen.jpg');
img.Picture.SaveToFile('screen.jpg');
end;

end.

wenn man also auf den button klickt wird der desktop wie er ist als bild gespeichert und als screen.jpg abgespeichert.

nunja mein problem ist das die größe dieser jpg dann 3MB beträgt woran liegt das?
wie kann ich das ändern?

danke