Anzahl Datensätze mit Zeos Komponenten

[celinaw]

Alo ich habs jezt so:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  anzahl : Integer;
begin
  dbMain.HostName:=Form2.Hostname.Text;  //Server
  dbMain.User:=Form2.User.Text;  //Benutzername
  dbMain.Password:=Form2.Password.Text;  //Passwort
  dbMain.Database:=Form2.Datenbank.Text;  //Name der Datenbank
  dbMain.Connected:=True;  //Verbindung herstellen
  Screen.Cursor := crHourGlass;
with qrMain do
  begin
    Close;
    SQL.Text :=
     'SELECT COUNT(*) AS anzahl FROM table_ordertracking WHERE order_type=:order_type';
    ParamByName('order_type').AsString := 'FT';
    Open;
    anzahl := FieldByName ('anzahl').AsInteger;
    DFCount.Text:= IntToStr(anzahl);
    qrmain.Close;
>>>> Ups... ich glaub ich habs >>   Screen.Cursor := crxxxx;

  end;
end;

Es wird auch das Ergebnis sofort in der DFCount=(Editfeld) angezeigt. Aber die Sanduhr hört nicht auf zu rödeln.
Was stimmt nicht?


Gruß Clina