Código Delphi [-] uses StrUtils; begin Label1.Caption:= AnsiReplaceStr('\\Server\' + (Sender as TMenuItem).Caption + '.pdf', '&', ''); ...
uses StrUtils; begin Label1.Caption:= AnsiReplaceStr('\\Server\' + (Sender as TMenuItem).Caption + '.pdf', '&', ''); ...