sil butonu, hatırladım ve hatırlamadım butonu tanımladım ama her seferinde hatırlamadım butonunun mesajını alıyorum 

var

  homeForm: TclForm;

  vertScrollBox: TclVertScrollBox;

  kartPanel, btnPanel: TclProPanel;

  lblWord: TclProLabel;

  btnSil, btnHatirladim, btnHatirlamadim: TclProButton;

  id, currentId: String;

void HatirladimTiklandi {

  ShowMessage('Harika, hatırladın!');

}

void HatirlamadimTiklandi {

  ShowMessage('Tamam, tekrar çalış!');

}

void SilButonuTiklandi {

  id = Clomosy.GlobalVariableString;

  Clomosy.DBSQLiteQuery.Close;

  Clomosy.DBSQLiteQuery.SQL.Text = 'DELETE FROM kartlar WHERE id = ' + id;

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  ShowMessage('Kelime silindi.');

  Clomosy.RunUnit('Homebtn');

} 

{

  homeForm = TclForm.Create(Self);

  homeForm.clSetCaption('Kayıtlı Kelimeler');

  homeForm.SetFormBGImage(' https://i.imgur.com/fPwWs0H.jpeg" rel="nofollow - https://i.imgur.com/fPwWs0H.jpeg ');

  vertScrollBox = homeForm.AddNewVertScrollBox(homeForm, '');

  vertScrollBox.Align = alClient;

  Clomosy.DBSQLiteQuery.Close;

  Clomosy.DBSQLiteQuery.SQL.Text = 'SELECT id, english, turkish FROM kartlar';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  while (not Clomosy.DBSQLiteQuery.Eof) {

    currentId = Clomosy.DBSQLiteQuery.FieldByName('id').AsString;

    

    kartPanel = homeForm.AddNewProPanel(vertScrollBox, '');

    kartPanel.Align = alTop;

    kartPanel.Height = 120;

    kartPanel.Margins.Bottom = 10;

    kartPanel.ClProSettings.BackGroundColor = clAlphaColor.clHexToColor('#e6e6e6');

    kartPanel.ClProSettings.RoundHeight = 10;

    kartPanel.ClProSettings.RoundWidth = 10;

    kartPanel.SetclProSettings(kartPanel.ClProSettings);

    lblWord = homeForm.AddNewProLabel(kartPanel, '', '');

    lblWord.Align = alTop;

    lblWord.Caption =

      'EN: ' + Clomosy.DBSQLiteQuery.FieldByName('english').AsString +

      ' | TR: ' + Clomosy.DBSQLiteQuery.FieldByName('turkish').AsString;

    lblWord.ClProSettings.FontSize = 18;

    lblWord.ClProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

    lblWord.Margins.Top = 5;

    lblWord.Margins.Left = 5;

    lblWord.SetclProSettings(lblWord.ClProSettings);

    

    btnPanel = homeForm.AddNewProPanel(kartPanel, '');

    btnPanel.Align = alBottom;

    btnPanel.Height = 40;

    

btnSil = homeForm.AddNewProButton(btnPanel, '', 'Sil');

btnSil.Align = alLeft;

btnSil.Width = 80;

btnSil.Margins.Left = 5;

btnSil.Margins.Right = 5;

btnSil.ClProSettings.BackGroundColor = clAlphaColor.clHexToColor('#f4bcbc');

btnSil.SetclProSettings(btnSil.ClProSettings);

btnSil.Hint = currentId;

Clomosy.GlobalVariableString = btnSil.Hint;

homeForm.AddNewEvent(btnSil, tbeOnClick, 'SilButonuTiklandi');

btnHatirladim = homeForm.AddNewProButton(btnPanel, '', 'Hatırladım');

btnHatirladim.Align = alClient;

btnHatirladim.Margins.Left = 5;

btnHatirladim.Margins.Right = 5;

btnHatirladim.ClProSettings.BackGroundColor = clAlphaColor.clHexToColor('#b6e3b6');

btnHatirladim.SetclProSettings(btnHatirladim.ClProSettings);

homeForm.AddNewEvent(btnHatirladim, tbeOnClick, 'HatirladimTiklandi');

btnHatirlamadim = homeForm.AddNewProButton(btnPanel, '', 'Hatırlamadım');

btnHatirlamadim.Align = alRight;

btnHatirlamadim.Width = 100;

btnHatirlamadim.Margins.Left = 5;

btnHatirlamadim.Margins.Right = 5;

btnHatirlamadim.ClProSettings.BackGroundColor = clAlphaColor.clHexToColor('#f7d58c');

btnHatirlamadim.SetclProSettings(btnHatirlamadim.ClProSettings);

homeForm.AddNewEvent(btnHatirlamadim, tbeOnClick, 'HatirlamadimTiklandi');

Clomosy.DBSQLiteQuery.Next;

  }

 homeForm.Run;

}

kodunu inceledim hatanın tüm butonlara ayn globalvariablestring atadığından kaynaklı olduğunu düşünüyorum sorunu çözmek için her butonun ayrı ıd sini aldım 

bu şekilde kodunu tekrar deneyebilir misin