🚀 go-pugleaf

>  if (ADOQuery1)
>  {
>    ADOQuery1->Close();
>    ADOQuery1->SQL->Clear();
>    ADOQuery1->SQL->Add("Select * from landstation where landstat_id =
> :stat_id;");
>    ADOQuery1->Prepare();
>
>    first = time(NULL);
>    for(int i=1000 ; ((i < 100000)  && (!isClosing)) ; i++)
>    {
>      ADOQuery1->Close();
>      ADOQuery1->Params->Items[0]->AsInteger = i;
>      ADOQuery1->Open();
>      while (!ADOQuery1->Eof)
>      {
>        StatId=ADOQuery1->FieldByName("landstat_id")->AsInteger;
>        Name  =ADOQuery1->FieldByName("landstat_name_wmo")->AsString;
>        Result=IntToStr(StatId)+AnsiString("  ")+Name;
>        ListBox1->Items->Add(Result);
>        ADOQuery1->Next();
>        Application->ProcessMessages();
>      }
>    }
>    ADOQuery1->Close();
>    second = time(NULL);
>    Msg=Msg.sprintf("The difference is: %f seconds",difftime(second,first));
>    Caption=Msg;
>  }

Well just offhand, I don't see that your Params->Items[0] ever gets a name
"stat_id".