procedure TForm1.Button1Click(Sender: TObject);
var
 a,b,c:string;
begin
 a:=ExtractFilePath(paramstr(0));
 b:=copy(a,1,length(a)-1);
 showmessage(ExtractFilePath(b + '..'));

end;