var

  notForm: TclStyleForm;

  edtOgrenci, edtDers, edtNot: TclEdit;

  btnKaydet: TclButton;

  ogrenciListesi: TStringList;  // Listeyi tanımlıyoruz

void BtnKaydetClick;

var

  satir: String;

{

  // Öğrenci, ders ve not bilgilerini alıp birleştiriyoruz

  satir = edtOgrenci.Text + ' ' + edtDers.Text + ' - ' + edtNot.Text;

  

  // Öğrencileri listeye ekliyoruz

  ogrenciListesi.Add(satir);

  

  // Kullanıcıya mesaj gösteriyoruz

  ShowMessage('Not kaydedildi: ' + satir);

}

{

  // Listeyi oluşturuyoruz

  ogrenciListesi = TStringList.Create;  

  // Formu ve diğer bileşenleri oluşturuyoruz

  notForm = TclStyleForm.Create(Self);

  edtOgrenci = TclEdit.Create(notForm);

  notForm.clGetChild(edtOgrenci);

  edtOgrenci.Text = 'Öğrenci Adı';

  edtOgrenci.Align = alTop;

  edtDers = TclEdit.Create(notForm);

  notForm.clGetChild(edtDers);

  edtDers.Text = 'Ders Adı';

  edtDers.Align = alTop;

  edtNot = TclEdit.Create(notForm);

  notForm.clGetChild(edtNot);

  edtNot.Text = 'Not';

  edtNot.Align = alTop;

  btnKaydet = notForm.AddNewButton(notForm, 'btnKaydet', 'Kaydet');

  btnKaydet.Align = alTop;

  notForm.AddNewEvent(btnKaydet, tbeOnClick, 'BtnKaydetClick');

  

  // Formu çalıştırıyoruz

  notForm.Run;

}

23,39da hata veriyor