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