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

[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'**
скажите как это исправить

[klem4]

поменять sum : integer; на sum : extended;

[Batia]

Поменял, но теперь он ругается по поводу этой строки

Код

Label1.caption := IntTostr(sum);

Пишет:
**This is overloaded version of 'IntToStr' that can be called with this arguments**