Absturz beim Zusammenfügen von Strings

[Morfio]

Hallo nochmal,

komischerweise funktioniert es so:

Delphi-Quellcode:

procedure TfrmHilfe.cbKapitelChange(Sender: TObject);
var
   sql: Tsql;
   _myRes: PMySql_Res;
   _myRow: PMySql_Row;
   query: String;
   Items: array of Integer;
   Kapitel: Integer;
   i: Integer;
   Helper: String;
begin
   lbTexte.Clear;
   sql := Tsql.create;
   Helper := String(cbKapitel.Items.Objects[cbKapitel.ItemIndex]);
   Kapitel := StrToInt(Helper);
   if Kapitel = 0 then
   begin
      query := 'SELECT id FROM HilfeKapitel ORDER BY Kapitel LIMIT 1';
      mysql_real_query(sql._myCon, PChar(query), Length(query));
      _myRes := mysql_store_result(sql._myCon);
      _myRow := mysql_fetch_row(_myRes);
      Kapitel := StrToInt(_myRow[0]);
   end;
   if Kapitel <> 0 then
   begin
      Edit1.Text := IntToStr(Kapitel);
      query := 'SELECT id, Headline FROM HilfeTexte WHERE KapitelID = ' + IntToStr(Kapitel);
      Edit1.Text := query;
      mysql_real_query(sql._myCon, PChar(query), Length(query));
      _myRes := mysql_store_result(sql._myCon);
      SetLength(Items, mysql_num_rows(_myRes));
      for i := 0 to High(Items) do
      begin
         _myRow := mysql_fetch_row(_myRes);
         lbTexte.Items.AddObject(_myRow[1], TObject(_myRow[0]));
      end;
   end;
end;

Irgendwie mache ich doch einen ganz großen Fehler, oder? Was mache denn falsch?

Morfio ...