Código Delphi [-]Label1.Caption := ExtractFileName(OpenDialog1.FileName);
Label1.Caption := ExtractFileName(OpenDialog1.FileName);