procedure TForm1.Timer1Timer(Sender: TObject);
var
res: integer;
value:Single;

begin



//ShowMessage(IntToStr(value));
Form1.Label1.Caption:= IntToStr(ReadFloat24(0,0,'PV',value , -1));


FreeLibrary(LibHandle);
ShowMessage(FloatToStr(RoundTo(value,-2)));

end;

При таком варианте постоянно выдает 12 в showmessage