var

  loginForm: TclStyleForm;

  TCEdit, IsimEdit: TclEdit;

  GirisButon : TclButton;

  GirisekraniUnit : TclUnit

  CekQeury : TclSqlQuery;

void Verigetir;

{

   try

    Clomosy.CekQuery.Sql.Text = 'INSERT INTO Doktortakip1 (Tc, Isim) VALUES ('+QuotedStr(TCEdit.Text)+', '+QuotedStr(IsimEdit.Text)+')';

    Clomosy.CekQuery.ExecSql;

    ShowMessage('Veri ekleme başarılı');

  except

    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

}

/*void GoToGirisekraniUnit;

{

  GirisekraniUnit = TclUnit.Create;

  GirisekraniUnit.UnitName = 'GirisekraniUnit';

  GirisekraniUnit.CallerForm = loginForm;

  GirisekraniUnit.Run;

}

*/

{

  loginForm = TclStyleForm.Create(Self);

  // Kullanıcı adı Edit oluşturma ve ayarları

  TCEdit = loginForm.AddNewEdit(loginForm, 'TCEdit', 'TC');

  TCEdit.Align = alTop;

  TCEdit.Height = 40;

  TCEdit.Margins.Top = 50;

  TCEdit.Margins.Left = 20;

  TCEdit.Margins.Right = 20;

  // Şifre Edit oluşturma ve ayarları

  IsimEdit = loginForm.AddNewEdit(loginForm, 'IsimEdit', 'Isim');

  IsimEdit.Align = alTop;

  IsimEdit.Height = 40;

  IsimEdit.Margins.Top = 10;

  IsimEdit.Margins.Left = 20;

  IsimEdit.Margins.Right = 20;

  // Giriş Butonu oluşturma ve ayarları

  GirisButon = loginForm.AddNewButton(loginForm, 'GirisButon', 'Giris');

  GirisButon.Align = alTop;

  GirisButon.Height = 40;

  GirisButon.Margins.Top = 20;

  GirisButon.Margins.Left = 20;

  GirisButon.Margins.Right = 20;

  loginForm.AddNewEvent(GirisButon, tbeOnClick, 'GoToGirisekraniUnit');

  loginForm.AddNewEvent(GirisButon,tbeOnClick,'Verigetir');

  

  CekQeury = TclSqlQuery.Create(nil);

  Clomosy.CekQeuryConnect('SQL Server', '172.16.222.111', 'sa', '159951ysf', 'Doktortakip', 50000);

  CekQeury.Connection = Clomosy.CekQeuryConnection;

  loginForm.Run;

}

2 Eventi kabul etmiyor ya da bir hatam varmı kodlarda 

Örneğinde butona tıklandığında 2 farklı olay gerçekleştirmek istediğini görüyorum. Bu şekilde program hata vermez ancak ikinci yazılan olayı gerçekleştirir. Sırasıyla öncelikle tıklandığında gidilmesini istediğin procedure içerisindeki işlemleri yapıp daha sonra o procedure içerisinde eventı değiştirebilirsin. Ancak butona tekrar tıklaman gerekecektir. Bunun yerine 2 procedure içerisindeki işlemleri birleştirerek tek procedure içerisinde yapabilirsin.