SQL-Statement wird 2 mal ausgeführt

[Nalincah]

Jetzt hab ich leider noch ein Problem:

Delphi-Quellcode:

procedure TDB_Frame.ButtonSQLExecuteClick(Sender: TObject);
begin
  DS.DataSet := Query;
  Query.SQL.Text := MemoSQL.Text;
  try
    Query.ExecSQL;
//    Query.Active := false;
//    Query.Active := true;
    LabelSQLResult.Font.Color := clBlue;
    LabelQueryRecordCount.Caption := IntToStr(Query.RecordCount);
    LabelSQLResult.Caption := 'SQL-Statement erfolgreich ausgeführt';
  except
    On e : exception do
    begin
      LabelSQLResult.Font.Color := clRed;
      LabelSQLResult.Caption := 'Fehler beim ausführen des Statements';
      MemoSQLError.Text := e.Message;
      PageControlSQL.ActivePageIndex := 1;
    end;
  end;
end;

Wenn ich das so mache, dann kracht der bei

LabelQueryRecordCount.Caption := IntToStr(Query.RecordCount); Weil die Query nicht aktiv ist. Das soll der nur machen ein Select-Statement aufgerufen wird.

Hab mir das erst so überlegt:

Delphi-Quellcode:

if Query.Active = true then
  LabelQueryRecordCount.Caption := IntToStr(Query.RecordCount);

Das geht aber nicht, da ich ja das Query.Active := true ausgeklammert habe.
Reinmachen kann ich ja nicht. Und ohne ExecSQL gehts auch nicht.

Wie krieg ich das hin?