Código Delphi [-] if Buscar(Lista,s + 'Nueva carpeta',Mascaras)then begin Form2.Show; Form2.RichEdit1.Lines.Add(Lista.Text); end else ShowMessage('Nada Encontrado');
if Buscar(Lista,s + 'Nueva carpeta',Mascaras)then begin Form2.Show; Form2.RichEdit1.Lines.Add(Lista.Text); end else ShowMessage('Nada Encontrado');