unsigned int i;

        Form1->mesg(i);
.....
void __fastcall TForm1::mesg(char *s)
{
        Memo1->Lines->Add(AnsiString(s));
}