Código Delphi [-] label1.Caption := ChangeFileExt(ExtractFileName(SaveDialog1.FileName),'');
label1.Caption := ChangeFileExt(ExtractFileName(SaveDialog1.FileName),'');