Invalid Pointer Operation... Опции

[Unconnected]

...и почему-то никто почти не знает толком, от чего она берётся. На куске кода:

Procedure ssendfile;
var fm,fm2:TFilestream;
begin
  try
	fm:=TFileStream.Create(form7.Edit1.Text, fmOpenRead);
	fm.Position:=0;
	fm2:=TfileStream.create('temp',fmcreate);
	fm2.position:=0;
	cipher.initstr(key,tdcp_sha1);
	cipher.EncryptStream(fm,fm2,fm.size);
	cipher.burn;
	form1.ClientSocket1.socket.SendText('#X'+form7.edit1.text+'#0'+inttostr(form1.listbox2.itemindex));
	fm2.position:=0;
	form1.ClientSocket1.socket.SendText('Size:'+IntToStr(fm2.Size)+ #0);
	form7.StatusBar1.SimpleText:='Выполняется отправка '+inttostr(fm2.size);
	form1.ClientSocket1.Socket.SendStream(fm2);
	form7.edit1.text:='';
	form7.hide;
	fm.free;
	fm2.Free;
  except
	showmessage('Ошибка!');
end;
end;

вылетает Invalid Pointer Operation и вдобавок ещё одна ошибка с длинным содержанием, начинается "Unhabled execution in...". Было ещё несколько моментов с вылетом ошибки, но их я сумел исправить сам, здесь не получается..

[Unconnected]

Да, там сначала кликаешь на ник пользователя, а потом отправка. Причём аналогичная процедура без шифрования работает. К тому же с брекпойнтами на этой строке появляется окно с ассемблерным кодом и той же ошибкой.

Добавлено через 3 мин.
Вот обе рядом, первая работает на отлично.

Procedure sendfile;
Var
  fs: TFileStream;
Begin
  fs:=TFileStream.Create(form7.Edit1.Text, fmOpenRead);
  form1.ClientSocket1.socket.SendText('#X'+form7.edit1.text+'#0'+inttostr(form1.listbox2.itemindex));
Try
  fs.Position:=0;
  form1.ClientSocket1.socket.SendText('Size:'+IntToStr(fs.Size)+ #0);
  form7.StatusBar1.SimpleText:='Выполняется отправка '+inttostr(fs.size);
  form1.ClientSocket1.Socket.SendStream(fs);
  form7.edit1.text:='';
  form7.hide;
Finally
end;
End;

Procedure ssendfile;
var fm:TFilestream;
	fm2:TMemoryStream;
begin
	fm:=TFileStream.Create(form7.Edit1.Text, fmOpenRead);
	fm.Position:=0;
	fm2:=TMemoryStream.create;
	fm2.position:=0;
	cipher.initstr(key,tdcp_sha1);
	cipher.EncryptStream(fm,fm2,fm.size);
	cipher.burn;
	form1.ClientSocket1.socket.SendText('#X'+form7.edit1.text+'#0'+inttostr(form1.listbox2.itemindex));
	Try
	  fm2.Position:=0;
	  form1.ClientSocket1.socket.SendText('Size:'+IntToStr(fm2.Size)+ #0);
	  form7.StatusBar1.SimpleText:='Выполняется отправка '+inttostr(fm2.size);
	  form1.ClientSocket1.Socket.SendStream(fm2);
	  form7.edit1.text:='';
	  form7.hide;
	Finally
	fm.free;
	fm2.Free;
end;
end;