mysql + stringgrid + farblich markieren

[bl3nder]

wenn ich es so mache , zeigt er mir leider keine Daten an

Delphi-Quellcode:

procedure TForm1.ShowInGrid;

  var i,j: integer;
  markierung : tcolor;

  begin
  if FMySql.Connected then begin

    if assigned(FResult) then begin   // <-- Falls eine SQL Abfrage vorliegt


            Grid.RowCount := FResult.RowsCount+1;  // <-- ZeilenAnzahl
            Grid.ColCount := FResult.FieldsCount; // <-- SpaltenAnzahl

            FResult.First;

        Grid.RowCount := Grid.RowCount + 1;
            Grid.Cells[0,Grid.RowCount-2] := Fresult.FieldValueByName('Inventar_Nr');
            Grid.Cells[1,Grid.RowCount-2] := Fresult.FieldValueByName('NetzwerkName');
            Grid.Cells[2,Grid.RowCount-2] := Fresult.FieldValueByName('Benutzer');
            Grid.Cells[3,Grid.RowCount-2] := Fresult.FieldValueByName('Benutzer_alt');
            Grid.Cells[4,Grid.RowCount-2] := Fresult.FieldValueByName('Raum');
            Grid.Cells[5,Grid.RowCount-2] := Fresult.FieldValueByName('Bemerkungen');

            FResult.Next;

            Statusbar1.Panels[0].Text := IntToStr(Grid.RowCount) + ' Einträge';
    end
    else
      ShowMessage('Keine SQL-Abfrage !');

  end
  else
    ShowMessage('Not Connected');

  end;

fildbyname muesste bei fresult fieldvaluebyname sein, da er in der klammer einen string erwartet und
so etwas wie .AsString nicht funktioniert