Проблемы с tmemo

[Turbine]

Здравствуйте!

Передаю компоненту tmemo в качестве параметра

procedure tx.UseMemo(const m: tmemo);
begin
if m<>nil then mmm:=m;
end;

или в качестве указателя

procedure tx.UseMemobyPointer(mp:pointer);
begin
if mp<>nil then mpr:=mp;
end;

работа с мемо пробовалась двумя способами:

mmm.Lines.Add(s);
// или
tmemo(mpr).Lines.Add(s);

Компонент прекрасно с ним работает, строки добавляются, но...
Если вызвать деструктор компонента раньше завершения программы, то invalid pointer operation.

Если просто закрыть программу, то все гладко.


Кросспост
http://programmersforum.ru/showthread.php?t=292371