[Konrad]

Сообщение от baff

она не выводит значения которые должны быть в интервале от 0 до p и p* может это из-за floattostr...

Пропиши так:
StringGrid1.Cells[i,2]:=floattostr(p1);