Invalid Pointer Operation

[Unconnected]

В последнее время всё чаще беспокоит эта ошибка, причём явных причин для неё я не вижу. Встроенный отладчик(или как он называется) Delphi не показывает на какую-либо строку, а просто выводит ошибку. С чем это может быть связано?

[mihali4]

Это происходит на одной вашей программе?
Если да, то придется делать дубликат проекта (изначально пустой!) и постепенно (по одной форме, с обязательной проверкой работоспособности) переносить туда код (желательно попроцедурно).
Сей глюк бывает, он широко известен, но пока никому не удалось однозначно выявить причину.
Лекарство одно - вводить изменения и дополнения в код небольшими порциями и каждое изменение компилить.
(Однажды самому пришлось лечить таким образом мегабайтный код. Было весело )

[Unconnected]

Ничего себе.. у меня откомпилированный .exe 760 КБ, это будет очень весело.. Ну я в принципе знаю участок кода(он небольшой), на котором происходит ошибка. Вот:

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;
    fm.free;
    fm2.Free;
    showmessage('Crypt!');
  except
    showmessage('Ошибка!');
end;
end;

Мне кажется, что-то я тут со вторым потоком намудрил, ибо подобная процедура без шифрования (там только один TFileStream) прекрасно работает.

[Jeni]

В одном случае в SendText используется '#0' (с кавычками), а в другом случае просто #0 (без кавычек). Возможно, это как-то влияет.