Проблема с COM объектом

[resu654]

Необходимо чтобы COM объект заполнял переданный ему StringGrid. Не могу понять в чем проблема, когда пишу:

procedure TComClass.FillGrid(a: TStringGrid);
begin
    a.cells[0,0] := 'Строка';
end;

То при закрытии программы вылетает ошибка Access Violation Read of Address #000000.

В чем может быть загвоздка??

Таже штука и с canvas:

procedure TMyCom.DrawDiagram(r:TCanvas);
begin
    r.Brush.Color := clRed;    
end;

Но когда вызываю методы канвы допустим Rectangle, то ошибка не вылетает.
и когда обращаюсь к свойству pen, допустим:

Pen.Color := clRed

то тоже все работает нормально.

[resu654]

Проблема оказалась не в COM, а в DLL.

Вот код DLL:

library Project2;

uses
  SysUtils,
  Classes,
  Grids,
  Graphics;

{$R *.res}

procedure fillGrid(s: TStringGrid); stdcall; export;
begin
  s.cells[0,0] := 'TEXT';
end;

procedure fillCanvas(s: TCanvas); stdcall; export;
begin
  s.Brush.Color := clRed;
end;

exports
 fillGrid,
 fillCanvas;

begin
end.

Вызываю одну из процедур и по закрытии программы выводится ошибка:
Invalid Pointer Operation

[resu654]

Разобрался, помог ShareMem