Lazarus + Zeos - ошибка в работе

Есть фрагмент кода:

procedure TfrmDatabase.FillTables(Sender: TObject);
var
  zqTMP: TZquery;
begin
  if zcDB.Connected then begin
    zqTMP := TZQuery.Create(Self);
    try
      lbTables.Items.Clear;
      zqTMP.Connection := zcDB;
      zqTMP.SQL.Text := 'show tables';
      zqTMP.Open;
      zqTMP.First;
      while not zqTMP.EOF do begin
        lbTables.Items.Add(zqTMP.Fields[0].AsString);
        zqTMP.Next
      end;
    finally
      FreeAndNil(zqTMP);
    end;
  end;
end;

Среда разработки - Lazarus, для работы с MySQL использую компоненты Zeos - есть опыт работы с ними.
Задача - получить список таблиц из БД и заполнить ими lbTables - обычный ListBox. К моменту выполнения процедуры соединение с БД установлено, проверка - обычная паранойя :) . Если серьёзно - на случай сбоев сети и т.д.
Этот код скопирован один к одному из старого проекта на Delphi, исключение - имена компонентов. В оригинале код работает.
Проблема в том, что вместо имён таблиц мне выдаются нули - именно цифра "0". В каком направлении копать?
Lazarus 0.9.30-2, Zeos 6.6.6.