Определение пути, где находится программа

function GetExePath:string;
begin
 Result:=ExtractFilePath(paramstr(0));
end;