... A.Read(C,4); c:= swap(c shr итд. A.Free; end;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!