[angvelem]

И зачем такие сложности (отдельная функция)?

Код:

var
  z : Integer;
...
  For i := 1 to ColCount - 1 do        {нахождение строки с максимальной суммой}
    if TryStrToInt(Cells[i, 1], z) then
      inc(max, z);
    else
    begin
      ShowMessage('Пустая ячека!');
      Exit;
    end;
...

С переменной x поступаем так же.