Retorna o path de onde o programa está sendo executado

Function ProgPath(filename:String):string;
var
st:string;
begin
st:= application.ExeName;
result:= extractfilepath(st)+filename;
end;