кусочек программы с кнопками Опции

[Batia]

Нужно нажав на кнопку найти среднее арифметическое

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j,k,sum: integer;
begin
   k:=0;
  sum := 0;
  with StringGrid1 do
    begin

              for i := 0 to ColCount-1 do
                 for j:=0  to RowCount-1 do
        begin
          if StrToInt(Cells[i, RowCount-1]) = 1 then
            begin
          sum := sum + StrToInt(Cells[i,j]);
               k:=k+1;
               end;
             sum:=sum/k;
            Label1.caption := IntTostr(sum);
            Label2.caption := IntToStr(k);
        end;
    end;
end;

Без кнопок програма рабоатет, а так выдает ошибку:
**Incompatible type: 'Integer' and 'Extended'**
скажите как это исправить