[[Caral]]

Hola
Perdoname pero si estas equivocado en este caso.
Un codigo mio en uso, revisalo.

Código Delphi [-]
 OrdenCompra.Active := False;
   OrdenCompra.SQL.Text := 'Select OrdenCompra From OrdenProd WHERE OrdenCompra ='+QuotedStr(Edit7.Text);
   OrdenCompra.Active := True;
   If Edit7.Text = '' then
   Edit7.Text:= Edit2.Text
   else
   If Edit7.Text = OrdenCompra.Fields[0].Value then
   MessageDlg('La orden de Compra ya Existe',mtError,[mbOK],0)
   else
   If Edit3.Text = '' then MessageDlg('Debe especificar el código del cliente',mtError,[mbOK],0)
 else

Si encuentras donde la recorro me lo dices.
Saludos