SQL de anlık veri

   Benim kendi kodumda herhangi bir ülkeye basıldığında Satın almak istiyor musun evet hayır seçenekleri geliyor eveti seçerse attığım kod devreye giriyor ve SQL de alınan ülkeye alan kişinin ismi düşüyor bu kısımda sıkıntı yok ancak hangi ülkeye basarsam basayım sadece İngiltere ülkesi alınıyor.Bu kodu her ülkenin procedüründe 
LastSender:= MyForm.clSender;
MyForm.AddNewEvent(testButton,tbeOnClick,'AddDataToListview');
end;
kodu ile çağırdım ama neden sadece tek butonda çalıştığını anlayamadım.

procedure SetupSqlConnection;begin
   Clomosy.DBSQLServerConnect('SQL Server','192.168.2.64','sa','zeren93353','monopoly',50000);
end;

procedure AddDataToListview;
Var
  foodListQuery : TClSqlQuery;
begin
  foodListQuery := TClSqlQuery.Create(nil);
  if (testRadio.isChecked) then 
  begin
  try
  ShowMessage(Clomosy.AppUserDisplayName);
     foodListQuery.Connection := Clomosy.DBSQLServerConnection;
     isim := btn1.caption;
     isim := btn2.caption;
     isim := btn3.caption;
     isim := btn4.caption;
     isim := btn5.caption;
     isim := btn6.caption;
     isim := btn8.caption;
     isim := btn9.caption;
     isim := btn11.caption;
     isim := btn12.caption;
     isim := btn14.caption;
     isim := btn16.caption;
     isim := btn18.caption;

    // ShowMessage(isim);
     foodListQuery.SQL.Text := 'update dbo.arsa set alan_kisi = '+quotedstr(Clomosy.AppUserDisplayName)+'
     where isim = '+quotedstr(isim);
     ShowMessage(foodListQuery.Sql.Text);   
     foodListQuery.ExecSql;
     ShowMessage('Kayıt işlemi başarılı');
     finally
     foodListQuery.Close;
     foodListQuery.Free;
     end;
  end;
  else begin
  ShowMessage('Doğru giriniz'); 
  end;

end;