vid:= RadioGroup1.ItemIndex;
case vid of
0:
begin
StringGrid1.Cells[3,1]:=FloatToStr(a[1]);
end;
1:
begin
StringGrid1.Cells[3,1]:=FloatToStr(a[1]);
end;
2:
  Нужно вставить значение StringGrid1.Cells[3,1]:=FloatToStr(a[1]); из 0-ого в StringGrid1.Cells[1,1] во 2ой! помогите пожалуйста?