[Alegun]

Сообщение от Kaktuz

...Связанно это с тем что когда код записан в событие Form1.Action, а не напрямую в объекте.

Код:

Form1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+WorkingFolder+'db1.mdb;Persist Security Info=False';

Если коннектстрочку задаёте кодом, тогда для упрощения удалите ADOConnection1 совсем, а в FormCreate запишите

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.ADOQuery1.SQL.Add('SELECT * FROM data');
  ADOQuery1Text1.OnGetText := ADOQuery1MemoFieldGetText;
  ADOQuery1Text2.OnGetText := ADOQuery1MemoFieldGetText;
  WorkingFolder := ExtractFilePath(ParamStr(0));
   Form1.ADOQuery1.ConnectionString := 
  'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
  WorkingFolder +
  'db1.mdb;Mode=ReadWrite;Persist Security Info=False';
  Form1.ADOQuery1.Active := True;
  ScanningFolder(WorkingFolder, nil);
end;