OnCaptureHotKeyPressed Example for Delphi 4.0

procedure TForm1.LEADScr1CaptureHotKeyPressed (Sender: TObject;

  nHotKeyType: Integer);

var
ret : Word;
bRet : boolean;
begin
    ret := MessageDlg('Do you want to capture?', mtConfirmation, [mbYes, mbNo], 0);
    if (ret = mrNo) then
    begin
        bRet := LEADScr1.IsCaptureActive();
        If (bRet) Then
            {cancel the capture}
            LEADScr1.StopCapture();
    end;
end;