[SnowLeopard]

В таблице полно записей (более 800). Всё подключено. Код:

Код:

procedure TForm3.FormShow(Sender: TObject);
begin
ADOTable1.ConnectionString :=
 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
 extractFileDir(ParamSTR(0)) +
 '\words.mdb;Mode=ReadWrite;Persist Security Info=False';
ADOTable1.Active := true;
ADOTable1.RecNo:=Random(ADOTable1.RecordCount+1);
a:=ADOTable1.FieldValues['word'].asstring;
{repeat
ADOTable1.RecNo:=random(ADOTable1.RecordCount+1);
b:=ADOTable1.FieldValues['word'];
until a<>b;
}
end;