Delphi 7. Как сделать чтоб в s1 две цифры после запятой были, cells[4,j]:=floatToStr(s1);

Есть такая функция в модкле SysUtils, который подключается к проекту автоматически.

function Format(const Format: string; const Args: array of const): string;

В вашем случае обращение к ней запишется так

cells[4,j] := Format('%0.2f', [s1]);

Подробности в справке