Einen Button und eine IdHttp Komponente aufs Form und folgender Code ins Button-OnClick Ereignis. Den Rest siehst Du selbst
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.ConnectTimeout := 5000;
IdHTTP1.ReadTimeout := 5000;
IdHTTP1.RedirectMaximum := 15;
IdHTTP1.HandleRedirects := True;
IdHTTP1.Head('http://www.winload.de/download.php?subid=d054771242f86e0eb8a489b16abc3e0f&programm_id=28745');
ShowMessage(IdHTTP1.Request.URL);
ShowMessage(IdHTTP1.Response.RawHeaders.Text);
end;
...
...