MySQL ohne Komponenten

[Troka]

Ich bekomme beim Auslesen der Daten folgenden Fehler:
'Access violation at adress 00BB357A in module 'libmysql.dll'. Read of address 00000388'

Delphi-Quellcode:

procedure TForm1.listboxfill;
var
  Posts: TPostEntries;
  query: PChar;
  _myCon: PMySQL;
  _myRes: PMySQL_Res; //hier wird der gesamte Ergebnissatz gespeichert
  _myRow: PMySQL_Row; //enthält den aktuellen Datensatz
  i: Integer;
begin
  {Verbindung herstellen}
  query := 'SELECT * FROM link ORDER BY id';
  _myCon:=PMySQL('0'); //Damit Variable initalisiert wird
  mysql_real_query(_myCon, query, Length(query));
  _myRes := mysql_store_result(_myCon);  //alle Datensätze vom Server anfordern
  if _myRes = nil then
  begin
    ShowMessage('Es konnten keine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(_myCon));
    Exit;
  end;
  SetLength(Posts, mysql_num_rows(_myRes));  //Posts-Array-Größe auf Anzahl der Datensätze setzen
    for i := 0 to High(Posts) do
  begin
    _myRow := mysql_fetch_row(_myRes);   //Datensatz abholen
    Posts[i].link := _myRow[0];  //Link ist erstes Feld im Datensatz
    Posts[i].nummer := StrToInt(_myRow[1]);          //ID ist das zweite Feld
    Posts[i].name := _myRow[2];
    listbox1.Items.Add(Posts[i].name);
  end;

  mysql_free_result(_myRes);             //Ergebnissätze löschen
end;