Deutsches Lazarusforum

ich werde mal schauen und danke für die schnelle Hilfe

es beginnt bei mir in der ersten Spalte da ganz am Anfang nur die Bezeichnung steht was das ist

procedure TForm1.Button2Click(Sender: TObject);
var a,i,n,m,c : integer;
begin
m:= 0;
c:= 0;
for a := 1 to 9 do
begin
for n:= 1 to 4 do
begin
if stringgrid1.cells[2*a,n]= 'x' then
begin
m:= m+strtoint(stringgrid1.cells[2*a-1,n]);
c:= c+1;
end;
end;

end;
edit3.text:= inttostr(m ...