Berechnung zum StringGrid

[Kunoishi]

mein Versuch

Delphi-Quellcode:

Var 
    SummeGesammtwert : double;

...

procedure   CArtikelerfassung.Show(ArtikelGrid:TStringGrid);
var i:integer;
    pRec:pArtikelerfassungRec;
begin
  SummeGesammtwert :=0;
  if Artikel.Count = 0 then
  begin
    ArtikelGrid.RowCount := 2;
    ArtikelGrid.cells[0,1] := '-';
    ArtikelGrid.cells[1,1] := '-';
    ArtikelGrid.cells[2,1] := '-';
    ArtikelGrid.cells[3,1] := '-';
    ArtikelGrid.cells[4,1] := '-';
  end
  else
  begin
    ArtikelGrid.RowCount := Artikel.Count+1;
    for i:=0 to Artikel.Count-1 do
    begin
      pRec := Artikel.Items[i];
      ArtikelGrid.cells[0,i+1] := IntToStr(i+1);
      ArtikelGrid.cells[1,i+1] := pRec^.AbteilungName;
      ArtikelGrid.cells[2,i+1] := pRec^.AbteilungNr;
      ArtikelGrid.cells[3,i+1] := pRec^.Artikel;
      ArtikelGrid.cells[4,i+1] := pRec^.ArtikelWert;
      ArtikelGrid.cells[5,i+1] := pRec^.Anzahl;
      ArtikelGrid.cells[5,i+1] := pRec^.Gesammtpreis;

      SummeGesammtwert := SummeGesammtwert + pRec^.Gesammtpreis;
    end;
  end;
end;

jetzt zeigt er mir aber einen "Inkompatible Typen" als Fehler