Redirect-Location bei InternetOpenURL herausfinden

[nTE]

Ich versuche nun auf anraten von OregonGhost mit der WinInet Geschichte den Source einer Webseite zu bekommen, mein Problem ist aber, dass ich keine Ahnung habe, wie ich wenn redirected wurde die neue URL herausbekommen soll.

Bisher habe ich mit InternetSetStatusCallback herumprobiert, bin aber nicht wirklich weitergekommen.
Mein bisheriger Ansatz sieht so aus:

Delphi-Quellcode:

...
hInetHandle := InternetOpen('Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)', Internet_Open_Type_PreConfig, nil, nil, 0);
  if hInetHandle <> nil then
    begin
      InternetSetStatusCallback(hInetHandle, @CallMaster); // Fehler "Variable erforderlich"

      if InternetOpenUrl(hInetHandle, PChar(EditUrl.Text), nil, 0, INTERNET_FLAG_NO_CACHE_WRITE + INTERNET_FLAG_NO_UI, Integer(@CallMaster)) <> nil then // Fehler "Variable erforderlich"
        begin
...

procedure TFormMain.CallMaster(hInternet: HINTERNET; dwContext: Pointer; dwInternetStatus: DWORD; lpvStatusInformation: Pointer; dwStatusInformationLength: DWORD);
begin
 // Code zur Behandlung von INTERNET_STATUS_REDIRECT.. coming soon ;)
end;

[edit=nTE]Fehlerbeschreibung hinzugefügt und Code erweitert[/edit]