Creo que es el resultado puede ser el mismo Caral pero es más optimizado hacer esto:
Código Delphi
[-]
With AdoIteBuscar Do
Begin
If Active Then Close;
SQL.Clear;
SQL.Add('Select codigo, fecha, itebis From itebis where codigo=:codigo_buscar');
ParamByName('codigo_buscar').AsString := editIteBuscar.Text;
Open;
If RecordCount= 0 Then ShowMessage('El código no existe');
End;
Es mucho más compacto y sencillo de entender