می تونی از این کد استفاده کنی :
procedure TForm1.Button1Click(Sender: TObject);
var
FileName:String;
i:Integer;
begin
if OpenDialog1.Execute then
begin
FileName:=ReverseString(OpenDialog1.FileName);
i:=PosEx('\',FileName);
FileName:=Copy(ReverseString(FileName),length(File Name)-(i-2),i+1);
ShowMessage(FileName);
end;
end;