[SnowLeopard]

Ошибку выдает((( "аргументы имеют неверный тип, вылезают за рамки диапазона или конфликтуют друг с другом"
На этой строке
ADOTable1.RecNo:=random(ADOTable1.RecordCount+1);