親ディレクトリは .. だから，SomeDir + "\\.." を実ディレクトリに変換すれば？
いま CBuilder 無いので Delphi で。

var
C : String;
begin
c := GetCurrentDir;
Button1.Caption := ExpandFileName(c + '\..');
end;

お尻の \ 記号処理をちゃんとしてください。