[Rjkzy]

Код:

var
i,j:cardinal
Res:Real;
begin
  for i:=0 to n-1 do
    begin
    if StringGird1.cells[i,o]<0 then
      begin
      res:=0;
      memo1.lines.add('Номер строки: '+inttostr(i));
      for j:=0 to n-1 do
        begin
        res:=res+StringGird1.cells[i,j];
        end;
      memo1.lines.add('Сумма элементов: '+floattostr(res));
      end;
    end;
end;

ну вот где-то так... могут быть ошибки в синтаксисе, писал тут.