[san-46]

Сообщение от Axotnik

Stream1.Position := 0;
for i := 1 to Stream1.Size do begin
Stream1.Read(d, 1);
im := im+d;
end;

А если файл 5-100 Мб? Скока он будет читаться в "im" по одному байту? Не профессионально.

У lmikle профессиональный вариант.