[ecfisa]

Hola Panasys.

A mi tampoco me queda del todo claro que estas buscando hacer... pero a ver si esto te sirve:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FData.QAux2.SQL.Clear;
  FData.QAux2.SQL.Add('Select * From tpais');
  FData.QAux2.Open;
  with ModificaPais do
  begin
    Clear;
    AddItem('Seleccione Pais', TObject(Integer(0)));
    while not FData.QAux2.Eof do
    begin
      AddItem(FData.QAux2.FieldByName('PAIS').AsString,
        TObject(Integer(FData.QAux2.FieldByName('PaisID').AsInteger)));
      FData.QAux2.Next;
    end;
    ItemIndex := 0;
  end;
end;

// Ejemplo de uso
procedure TForm1.ModificaPaisChange(Sender: TObject);
begin
  with ModificaPais do
    if Integer(Items.Objects[ItemIndex]) = 0 then
      ShowMessage('¿ No sabe leer ? ¡ Seleccione un país !');
end;

...

Saludos