var  

testLabel : TclLabel;

testString : String;

MyForm : TCLForm;

{

  // Bu şekilde önceden main blok kısmında tanımlanabilinir kontrol için

  testString = ''; 

  

  MyForm = TCLForm.Create(Self);

  if (testString == '')

  {

    ShowMessage('testString boştu artık TEST BAŞARILI');

    testString = 'TEST BAŞARILI'

  }

  else

  {

    testString = 'TEST BAŞARISIZ'

  }

  

  testLabel = MyForm.AddNewLabel(MyForm,'testLabel',testString);

  testLabel.StyledSettings = ssFamily;

  testLabel.TextSettings.Font.Size = 20;

  testLabel.Width = 250;

  MyForm.Run;

}



.