تفاوت بین win7 با winxp در دستور OpenDialog

[yosefyosef]

با سلام
من با مشکل در اجرای برنامه خودم در ویندوز 7 و ويندوز xp مواجه شدم
مسير كه از OpenDialog بدست اوردم در xp درست است
اما در ویندوز 7 مسیر برنامه میاره
علت ان چیست ، وچه راه حلی برای اینکه مسیرم از OpenDialog انتخاب کنم



procedure TForm7.Button1Click(Sender: TObject);
var OpenDlg : TOpenDialog;
begin OpenDlg := TOpenDialog.Create(Self);
if OpenDialog.Execute then begin
Edit3.text := GetCurrentDir;
end;end;

توضیح در edit3 مسیر OpenDialog در xp مسیر فایلی که انتخاب کردم میاره اما در ویندوز 7 مسیر برنامه یعنی برنامه کجا نصب شده میاره

[دلفــي]

Edit3.text := ExtractFilePath(OpenDlg.FileName);