[[Caral]]

Hola

Código Delphi [-]
   AQTemp.SQL.Text := 'Select Codigo From PRODUCTOS '+
                      'where  Codigo = :cod ';
   AQTemp.Params[0].Value:= Edit1.Text;
   AQTemp.Open;
 If AQTemp.RecordCount > 0 then
   begin
      MessageDlg('Código ya existe.',mtError,[mbOK],0);
      Edit1.SetFocus;
   end

Saludos