Código Delphi
[-]var
restar:real;
s:string;
begin
s:=edit1.Text;
while Pos('.', S) > 0 do
begin
Delete(S, Pos('.', S),1);
s:=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.