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