float*mas=new float[n];
unsigned short i;
for(i=0; i<n;i++)
mas[i]=StrToFloat(StringGrid1->Cells[i][0]);
float azaz=mas[n];
for(i=0;i<n+1;i++)
mas[i]=mas[i-1];
mas[0]=azaz;
for(i=0;i<n;i++)
StringGrid1->Cells[i][0]=FloatToStr(mas[i]);
delete[]mas;