Schreibe einfach anstatt der Konstante eine Funktion:
Delphi-Quellcode:
function filename:string;
begin
result:=IncludeTrailingPathDelimiter(GetEnvironmentVariable('windir'))+'TEMP\~TEMP.MID';
end;
Die kopierst du irgendwo ganz oben in den Quellcode (gleich nach implementation). Dann kannst du Filename immer aufrufen, als ob es eine Konstante wäre.