[TOJluK]

На главной форме есть DBGrid. В DLL есть функция:

Код:

Function SetGridColumnWidths(Wgrid: tdbgrid):Boolean;
const
defborder = 5;
var
temp, n: integer;
lmax: array [0..30] of integer;
begin
with Wgrid do
begin
canvas.font := font;
for n := 0 to columns.count - 1 do
 lmax[n] := canvas.textwidth(fields[n].fieldname) + defborder;
Wgrid.datasource.dataset.first;
while not Wgrid.datasource.dataset.eof do
//ТУТ ПОЛУЧАЕМ VIOLATION, но иногда проходит нормально
 begin
 for n := 0 to columns.count - 1 do 
  begin
  temp := canvas.textwidth(trim(columns[n].field.displaytext)) + defborder;
  if temp > lmax[n] then
   lmax[n] := temp;
  end; {for}
  Wgrid.datasource.dataset.next;
 end; { while }
 Wgrid.datasource.dataset.first;
 for n := 0 to columns.count - 1 do
  if lmax[n] > 0 then
 columns[n].width := lmax[n];
 end; { with }
end; {setgridcolumnwidths }

На главной форме, обработчик кнопки вот такой:

Код:

procedure TZastrForm.BitBtn1Click(Sender: TObject);
type
 Tsetgridcolumnwidths  = Function(Wgrid: TDBGrid):boolean;
 var
  DLLInstance:THandle;
  setgridcolumnwidths:Tsetgridcolumnwidths;
begin
DLLInstance:= LoadLibrary('Gridw.dll');
@setgridcolumnwidths := GetProcAddress(DLLInstance,'setgridcolumnwidths');
setgridcolumnwidths(DbGrid1);
FreeLibrary(DLLInstance);
end;

Иногда все проходит, иногда получаем Access Violation. На строке FreeLibrary(DLLInstance) тож иногда возникает violation. Вообщем вопрос, как мне обработать DBGrid при помощи функции из динамически подключаемого DLL?