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;
  
  LastSender:= MyForm.clSender;
end;