Непонятная ошибка

[Shurik(c)]

function EChange(DestStream, SourseStream: Tstream; Count:Int64; Password:string):Boolean;
var
Buffer:TBlock;
PC:Int64;
AC:Byte;
begin
result:=true;
try
if Password='' then
begin
DestStream.CopyFrom(SourseStream,Co unt);
exit;
end;
Init(Password);
Keys;
PC:=0;
while Count-PC>=BSize do
begin
SourseStream.Read(Buffer,BSize);
EBlock(Buffer);
DestStream.Write(Buffer,BSize);
inc(PC,BSize);
end;
AC:=Count-PC;
if Count-PC<>0 then
begin
SourseStream.Read(Buffer,AC);
DestStream.Write(Buffer,AC);//после этой строки выкидывает
end;
except
result:=false;
end;
end;

выдает сообщение Project1.exe faulted with message:'access violation at 0xffffffff: Read of address 0xfffffff'.
если нужно то в момент выхода АС=0, Count=-1, PC=255