!!!!Bmp!!!!

oi eu sou novo no delphi e naum entendo as functions ainda
é o seguinte
fiz um programa pra capturar a tela
e salvar em bmp
so q bmp é muito pesado sabe ai quero converter pra jpg
tenho essa function q faz isso

// Declare Jpeg na seção USES.

Function BmpToJpg(cImage: String):Boolean;
var
MyJPEG : TJPEGImage; MyBMP : TBitmap;
begin
Result := False;
if fileExists(cImage + ´.bmp´) then begin
MyBMP := TBitmap.Create;
with MyBMP do begin try
LoadFromFile(cImage + ´.bmp´);
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
SaveToFile(cImage + ´.jpeg´);
Free; Result := True;
end; finally Free; end; end; end; end;

mais naum sei usar o q eu tenho q fazer agora por num botão num entendo me expliquem bem direitinho por favor