Error al mostrar Cadena(AnsiString) desde una función

[darkmir]

Hola a todos, trato de mostrar una cadena (AnsiString) en un TEdit llamandolo desde otra función, pero me muestra error de conversión, el error es el siguiente:

[bcc32 Error] Unit1.cpp(26): E2034 Cannot convert 'UnicodeString' to 'TStrings *'
  Full parser context
    Unit1.cpp(25): parsing: void _fastcall TForm1::Button1Click(TObject *)

el código que utilize es :

void mostrar(TStrings *P)
{
    P->Add("Hola Mundo");
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   mostrar(Edit1->Text);
}

he estado tratando de convertirlo pero no he podido hasta el momento, cambie de TStrings a AnsiString de esta manera:

void mostrar(AnsiString prueba )
{
    prueba ="Hola Mundo";
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   mostrar(Edit1->Text);
}

no me da errores, pero no me muestra la cadena ("Hola Mundo"), sale en blanco, cualquiera de los 2 metodos que me puedan ayudar, se los agradezco de antemano.

Saludos.