Умножение матрицы на вектор

function MatVecMul(MyMatrix: TMatrix; MyVec, ResVec: TVector): boolean;
var
  i, j: integer;
begin
  if MyMatrix.CountCol = MyVec.Size then
  begin
    SetLength(ResVec.FData, MyMatrix.CountRow);
    for i := 0 to MyMatrix.CountRow - 1 do
      for j := 0 to MyMatrix.CountCol - 1 do
        ResVec[i] := (ResVec[i] + MyMatrix[i, j]) * MyVec[j]};
    Result := true;
  end
  else
    Result := false;
end;

function MatVecMul(MyMatrix: TMatrix; MyVec, ResVec: TVector): boolean;
var
  i, j: integer;
begin
  if MyMatrix.CountCol = MyVec.Size then
  begin
    SetLength(ResVec.FData, MyMatrix.CountRow);
    for i := 0 to MyMatrix.CountRow - 1 do
    begin
      ResVec[i] := 0; // <--- Инициализировать значение, а то мало ли какой там мусор...
      for j := 0 to MyMatrix.CountCol - 1 do
        ResVec[i] := ResVec[i] + MyMatrix[i, j] * MyVec[j]; // Скобки тоже не нужны
    end;
    Result := true;
  end
  else
    Result := false;
end;