Problem z odczytaniem tabeli w MYSQL

Mam problem

var
   kolumny:Tlistcolumn;
   listitem:tlistitem;
   id:integer;
   nazwafirmy,skroconanazwafirmy,regon,nip,telefon,adresmail,kod,ulica,miejscowosc:string;
begin

  with ListView1 do
  begin
    Columns.Clear;
    Clear;
    Parent := Self;
    Align := alClient;
    ViewStyle := vsReport;
    RowSelect := True;
    ReadOnly := False;
    Color := clInfobk;
    GridLines := True;
    ShowColumnHeaders := True;
  end;

  with ListView1 do
  begin
    Kolumny := Columns.Add;
    Kolumny.Caption := 'Id';
    Kolumny.Width := 30;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'Nazwa firmy';
    Kolumny.Width := 70;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'Skrócona nazwa';
    Kolumny.Width := 50;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'NIP';
    Kolumny.Width := 50;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'REGON';
    Kolumny.Width := 70;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'Miejscowość';
    Kolumny.Width := 70;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'Kod';
    Kolumny.Width := 40;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'Ulica';
    Kolumny.Width := 55;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'Telefon';
    Kolumny.Width := 50;

    Kolumny := Columns.Add;
    Kolumny.Caption := 'Adres e-mail';
    Kolumny.Width := 65;
  end;

  with ListView1 do begin
    while not SQLDataset1.Eof do begin
    id:=SQLDataset1.FieldValues['id'];
    nazwafirmy:=SQLDataset1.FieldValues['nazwafirmy'];
    skroconanazwafirmy:=SQLDataset1.FieldValues['skroconanazwafirmy'];
    regon:=SQLDataset1.FieldValues['regon'];
    nip:=SQLDataset1.FieldValues['nip'];
    telefon:=SQLDataset1.FieldValues['telefon'];
    adresmail:=SQLDataset1.FieldValues['adresmail'];
    kod:=SQLDataset1.FieldValues['kod'];
    ulica:=SQLDataset1.FieldValues['ulica'];
    miejscowosc:=SQLDataset1.FieldValues['miejscowosc'];
    ListItem:=Items.Add;
    ListItem.Caption:=inttostr(id);
    ListItem.SubItems.Add(nazwafirmy);
    ListItem.SubItems.Add(skroconanazwafirmy);
    ListItem.SubItems.Add(nip);
    ListItem.SubItems.Add(regon);
    ListItem.SubItems.Add(miejscowosc);
    ListItem.SubItems.Add(kod);
    ListItem.SubItems.Add(ulica);
    ListItem.SubItems.Add(telefon);
    ListItem.SubItems.Add(adresmail);
    SQLDataset1.Next();
    end;
  SQLDataset1.Close;

W komponencie SQLDataSet1 w Command Text mam SELECT * FROM kontrachenci ORDER BY id

Problem leży w tym, ze program nie odczytuje, lub odczytuje ale nie wyświetla rekordów z tabeli.

Niewidze nigdzie SQLDataSet1.Open;
powinieneś dodać na początku przed

while not SQLDataset1.Eof do begin