Cursor crSQLWait takılı kalması

[serhat]

Merhaba; Kodlamada hata yok sanırım; SearchBox.Text edit aranan ürünün adı yazılınca listview de listeleniyor, fakat mouse'u oynatana kadar mouse crSQLWait gösteriyor sanki Search işlemi devam ediyormuş gibi bu neden olabilir?

procedure TForm2.SearchBoxChangeTracking(Sender: TObject);
begin
  With Form1, FDQuery, Listv do
  begin
    Connection := MainConnect;
    Close;
    SQL.Clear;
    SQL.Add('Select * From URUNLER');
    SQL.Add('WHERE BARKOD LIKE ' + QuotedStr('%' + SearchBox.Text + '%'));
    SQL.Add('Limit 0,100');
    Prepared := True;
    Open;
    BeginUpdate;
    try
      Items.Clear;
      while Not Eof do
      begin
        LItem := Items.Add;
        LItem.Data['Text1'] := FieldByName('URUN').AsString;
        LItem.Data['Text2'] := FieldByName('BARKOD').AsString;
        LItem.Data['Text3'] := FieldByName('SATIS').AsString;
        LItem.Data['Text4'] := FieldByName('MODEL').AsString;
        LItem.Data['Text5'] := FieldByName('ADET').AsString;
        Next;
      end;
    finally
      EndUpdate;
    end;
  end;
  Cursor := crDefault;
  Form1.FDQuery.Close;
end;

[Abdullah ILGAZ]

Cursor durumunu crDefault'a çeviren bir prosedür yazın. Bu prosedürü arama işleminizin bittiğini bildiğiniz bir yerde tetikleyin, sorun çözülmüş olacaktır.