[Impressive]

Код:

// ЗАПОЛНЕНИЕ ТАБЛИЦЫ 
procedure TForm3.Button3Click(Sender: TObject);
 var i, j: Integer;
     U,v :real;
begin
// расчет значений для графика
  j:=1;
  U:=0;
   StringGRid1.Cells[0,0]:='Напряжение U,МВ';
  U:=-c*sqrt(1-sqr(m0*c*c/(5*q*U+m0*c*c)));
   StringGRid1.Cells[1,0]:='Скорость v,м/c';
  Repeat
       U:=U+100000;
       v:=-c*sqrt(1-sqr(m0*c*c/(5*q*U+m0*c*c)));
       j:=j+1;
          //Записываем напряжение в ячейку:
          StringGRid1.Cells[0,j]:=IntToStr(U);
          //Записывем скорость в ячейку ниже,под соответ.напряжением:
          StringGRid1.Cells[1,j]:= IntToStr(v);
  Until j>StringGRid1.ColCount-1;

end;

Bargest: Не забываем выделять код тегами [ code ] [ /code ]! Кнопка "VAR" в редакторе сообщения.