var

  MyForm: TCLForm;

  noteAddEdit: TCLEdit;

  addBtn,deleteBtn: TCLButton;

  noteMemo: TCLMemo;

  

  void AddBtnOnClick;

  {

    noteMemo.Lines.Add('* '+noteAddEdit.Text);

    noteAddEdit='';

  }

  

  void DeleteBtnOnClick;

  {

    noteMemo.Lines.Delete(0);

  }

  {

    MyForm=TCLForm.Create(Self);

    

    noteAddEdit=MyForm.AddNewEdit(MyForm,'noteAddEdit', 'Enter your note...');

    noteAddEdit.Margins.Bottom=500;

    noteAddEdit.Width=150;

    noteAddEdit.Height=50;

    

    addBtn=MyForm.AddNewButton(MyForm,'addBtn', 'Add');

    addBtn.Margins.Left=100;

    addBtn.Margins.Bottom=400;

    addBtn.Width=100;

    addBtn.Height=50;

    

    deleteBtn=MyForm.AddNewButton(MyForm,'deleteBtn', 'Delete');

    deleteBtn.Margins.Right=100;

    deleteBtn.Margins.Bottom=400;

    deleteBtn.Width=100;

    deleteBtn.Height=50;

    

    noteMemo=MyForm.AddNewMemo(MyForm,'noteMemo', '');

    noteMemo.Align=alCenter

    noteMemo.Height=200;

    noteMemo.Width=200;

    noteMemo.ReadOnly=True;

    noteMemo.TextSettings.WordWrap=True;

    

    MyForm.AddNewEvent(addBtn,tbeOnClick,'AddBtnOnClick');

    

    MyForm.AddNewEvent(deleteBtn,tbeOnClick,'DeleteBtnOnClick');

    

    MyForm.Run;

  }

Bu basit bir not uygulaması denemesi yaptım ama ilk kelimeden sonra herhangi bir ekleme yaptığımda çökme yaşanıyor buna nasıl bir çözüm bulunabilir.

 void AddBtnOnClick;

  {

    noteMemo.Lines.Add('* '+noteAddEdit.Text);

    noteAddEdit='';

  } 

ilgili prosedür de 
bir bileşene direk boşluk atamasını yapamazsın.
noteAddEdit.Text = ''; şeklinde olması gerekli