Download, status bar?

Hej...

Jeg har et program der kan downloade filer, jeg bruge dette:

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
try
  hURL := InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);
  try
  AssignFile(f, FileName);
  Rewrite(f,1);
  repeat
    InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen)
  until BufferLen = 0;
  CloseFile(f);
  Result:=True;
  finally
  InternetCloseHandle(hURL)
  end
finally
  InternetCloseHandle(hSession)
end
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
GetInetFile('http://www.MinSide.dk/MinFil.dll','c:\MinFil.dll);
end;

Hvordan sætter jeg en status bar ind, så folk kan se hvor langt den er kommet med at downloade filen?

Så lige et andet spørgsmål, hvordan får jeg min funktion til at ligge den downloadede fil i samme mappe som programmet selv ligger?


/stefmeister