нет конечно не в одном цикле. А функции из owen_io.dll.

function WriteFloat24(adr,adr_typeWORD; command:PChar; var value:Single;index:integer):integer; stdcall; external 'owen_io.dll';

function ReadFloat24(adr,adr_typeWORD; command:PChar; var value:Single;index:integer):integer; stdcall; external 'owen_io.dll';