Delphi Узнаем месторасположение программы

[Lomanu4]

var
sPath : string;
Begin
GetDir(0,sPath);