[[seoane]]

Así de memoria, puede que me equivoque ...

Código Delphi [-]
Edit1.Text:= ChangeFileExt(ExtractFileName(Archivo),EmptyStr);