Es werden keine Daten im DBGrid angezeigt

[Ati]

Es gibt ja den SQL-Editior unter IBExpert. Wenn ich hier jetzt
select * from Zandereingang eingebe erhalte ich die korrekten Daten zurück.
Hier mal mein bisheriger Programm-Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ZQuery, ZIbSqlQuery, ZTransact, ZIbSqlTr, ZConnect,
  ZIbSqlCon, ComCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, ZUpdateSql,
  ZMsSqlTr, ZMsSqlQuery, ZMsSqlCon;


type
  TForm1 = class(TForm)
    dbmain: TZZIbSqlDatabase;
    trmain: TZZIbSqlTransact;
    qrmain: TZZIbSqlQuery;
    dsmain: TDataSource;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var ListItem:Tlistitem;
    anz:Integer;

begin
 qrMain.Sql.Clear;
 qrMain.Sql.Text:='SELECT * FROM Zandereingang;';
 qrMain.Open;
 qrMain.SortByField('Datum');
 anz:=dsmain.DataSet.RecordCount;
 showmessage(inttostr(anz));

end;

end.