problema con decimales largos

[ralf8727]

Código Delphi [-]
var
restar:real;
 s:string;
begin
// S :=StringGrid1.Cells[6,stringGrid1.Row];

s:=edit1.Text;
while Pos('.', S) > 0 do
begin
    Delete(S, Pos('.', S),1);
   s:=s;//strtofloat(S);
end;

s := StringReplace(s, ',', '.',[rfReplaceAll, rfIgnoreCase]);

Label1.Caption:=s;

Label2.Caption:= FloatToStr( StrToFloat(s)-100);


end;

esete codigo te podria funcionar pero si estas tomando informacion de un edit puedes poner el valor como se requiere.