[__cadetill]

achicar a nivel de código.... no, pero sí que verás/notarás cambio en el rendimiento

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select * from tabla where campo = ' + QuoteStr('mi_txto') );
Query.Open;
if Query.IsEmpty then
  Añadir

Por supuesto, faltaría el control de errores con try...except..end;