Посоветуйте локальную легкопереносимую с прогой СУБД с хорошей скоростью

Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('SELECT * FROM slovar order by slovo');
Form1.ADOQuery1.Active:=True;

Form1.ADOTable1.active:=true;
for i:=1 to WordsCount do
begin
   LookupRes :=  Form1.ADOTable1.Lookup('slovo', sssr, 'id;');
   flagwordright:=false;
         if not(VarIsNull(LookupRes)) then flagwordright:=true; // слово есть в словаре 
                                                          // поэтому нет ошибки
         if not(flagwordright) then //неправильное слово в RichEdit 
                begin
                    RichEdit_text:=sssr + ' на стр. №' + IntToStr(Straniza); RichEdit_add_text;
                    inc(error_count);
                end;
end;

for i:=1 to WordsCount do
begin
   flagwordright:=false;
   Form1.ADOQuery1.SQL.Clear;
    Form1.ADOQuery1.SQL.Add('SELECT * FROM slovar where slovo="'+sssr+'"');
    Form1.ADOQuery1.Active:=True;
    slovo:=Form1.ADOQuery1.FieldByName('slovo').AsString;
    if slovo<>'' then flagwordright:=true;
end;

   flagwordright:=false;
    Form1.ADOQuery1.SQL.Clear;
    Form1.ADOQuery1.SQL.Add('SELECT * FROM slovar where slovo="'+sssr+'"');
    Form1.ADOQuery1.Active:=True;
    slovo:=Form1.ADOQuery1.FieldByName('slovo').AsString;
    if slovo<>'' then flagwordright:=true;

with Form1.ADOQuery1 do
begin
  Active:=False;
  SQL.Text:=Format('SELECT 1 FROM slovar where slovo="%s"', [sssr]);
  Open;
  flagwordright:=not IsEmpty;
end;