Hola
Es lo bueno de delphi, para gustos los colores
:
Código Delphi
[-]
AdoIteBuscar.Close;
AdoIteBuscar.SQL.Text: 'Select codigo, fecha, itebis From itebis where codigo = :cod');
AdoIteBuscar.Parameters[0].Value := editIteBuscar.Text;
AdoIteBuscar.Open;
If AdoIteBuscar.RecordCount = 0 Then ShowMessage('El código no existe');
Hay muchas maneras de cazar a ese raton.
Saludos