/////////////////////////////////////////////////////
      TMemo *memo = new TMemo(Form3);
          memo->Parent = Form3;
          memo->Name = "MStatus";
          memo->Height = 401;
          memo->Width = 700;
          memo->Left = 0;
          memo->Top = 24;
          memo->Visible = true;
      cActiveComp = "Status";
      Form1->ListBox1->Items->Insert(0,cServerName);
      Form3->Label1->Caption=cServerName;
/////////////////////////////////////////////////////

TMemo *memo = (TMemo*)FindComponent("MStatus");

memo->Height=10;