[Pyro]

PHP код:

function Prepare(s: string): string;
const magic = -42*3.14159
begin
  if strtofloatdef(s, magic ) = magic then
    result := s
  else
    result := Format('%10.1f' ....... );
end;

....

StringGrid1.Cells[2,i]:= Prepare(Sheet1.Range[.....]); 


что-то вроде того