[cloayza]

Creo que el código que escribiste tiene algunos problemillas..

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');

Saludos