Datei löschen ohne genauen Pfad!?

[M-RaxXxoR]

Moin!,

ich und ein paar andere Leute haben ein und dasselbe Programm auf dem Pc. Jetzt muss eine Datei aus einem Ordner gelöscht werden, was ich mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Delete('c:\Programme\test.txt') then
...

mache. Funktioniert auch gut aber nicht wenn ich den genauen Pfad weiß denn sicherlich ist nicht bei jedem Pc der Pfad c:\...
Also probierte ich es mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Delete('%programfiles%\test.txt') then 
...

und das haut irgendwie mal garnicht hin
Der findet die Datei dann nicht. Welchen befehl muss ich dann nehmen. Kann mir jemand helfen?
Ich veruche es jetzt schon seit 2 Tagen ALLEINE rauszukriegen aber...naja.

MfG RaxXxoR