TWebbrowser - Dateien downloaden

[peacemoon]

Hier ist mein code

Delphi-Quellcode:

procedure TfrmMain.Download(pmk: IMoniker; pbc: IBindCtx);
begin
  IEDownload.Download(pmk,pbc);
  //ShowMessage('Download...');
end;

function TfrmMain.WebBrowser1FileDownload(pmk: IMoniker; pbc: IBindCtx;
  dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo; pszHeaders,
  pszRedir: PWideChar; uiCP: Cardinal): HRESULT;
begin
    grdLinks.Cells[0,idxLink] := 'x';
    Download(pmk,pbc);
    Result := S_OK;
end;

Ich weiß nicht warum, aber ich habe immer error Access Violen wenn ich diese Code ausführe