Acabo de probarlo y me ha funcionado sin problemas
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := FormatFloat('#,##0.00', 12.2352);
stringgrid1.Cells[4,2]:= s;
stringgrid1.Cells[4,3]:= FormatFloat('#,##0.00', Trunc(12.2352 * 100) / 100);
end;
Eso sí, hay que tener en cuenta que FormatFloat redondea, por lo que si queremos los dos últimos decimales tal cual, hay que hacer la operación de Trunc(valor * 100) / 100
Espero te sirva