Fehlerindex Datei-Verzeichnis

[Fr34k]

Hallo!
Ich habe einen Fehlerindex in mein Programm eingebaut und diese Datei befindet sich jetzt noch im Hauptverzeichnis 'C:\' genau wie das Hauptprogramm (*.exe Datei).
Wenn ich jetzt die 2 Dateien in einen Test Ordner verschiebe, dann wird die Datei Fehlerindex nichtmehr geöffnet.
Wie bekomme ich es hin, dass die Datei Fehlerindex.htm immer im selben Ordner gefunden wird, in der auch das Hauptprogramm liegt.

Delphi-Quellcode:

procedure TForm1.Fehlerindex1Click(Sender: TObject);
var 
datei : String; 
begin 
   datei := 'c:\Fehlerindex.htm';
   shellexecute(handle, 'open', PChar(datei), nil, nil, sw_show);
end;

[mirage228]

  datei := ExtractFilePath(ParamStr(0))+'Fehlerindex.htm'; mfG
mirage228

[Fr34k]

vielen Dank für die schnelle Hilfe!

MfG Fr34k