Código Delphi [-]
procedure TForm5VerOfertas.FormActivate(Sender: TObject);
var
 miNombre: string;
begin


  miNombre:= Form1.Label7.Caption;   
  DM.Subastas.Open;
  DM.Subastas.Prior;
  while not DM.Subastas.eof do begin
    if(DM.Subastas.FieldByName('nombre_usuario').AsString = miNombre) and (DM.Subastas.FieldByName('fecha_fin').AsDateTime < Date) then
      ComboElegirSubasta.Items.Add(DM.Subastas.FieldByName('titulo').AsString);
     DM.Subastas.Next;
  end;

end;

Código Delphi [-]
  ComboBox1.Clear;
  with tuDataSet do
  begin
    Open;
    while not Eof do
    begin
      if ( una_condición ) then  // Opcional
        ComboBox1.Items.Add(FieldByName('TU_CAMPO').AsString);
      Next;
    end;
  end;

Código Delphi [-]
...
  with DM.Subastas do
  begin
    Close;
    Open;
    // Filtrar
    Filtered := False;
    Filter   := Format('NOMBRE_USUARIO = %s AND FECHA_FIN < %s', [MiNombre, DateToStr(Date)]);
    Filtered := True;

    // Copiar resultado al combo
    DisableControls;
    try
      while not Eof do
      begin
        ComboBox1.Items.Add(FieldByName('TITULO').AsString);
        Next;
      end;
    finally
      EnableControls;
      Filtered := False;  // Quitar el filtro
    end;
  end;
  ComboBox1.ItemIndex := 0;
end;

Código Delphi [-]
procedure TForm5VerOfertas.Button2Click(Sender: TObject);
var
  productoElegido: string;
begin
  productoElegido:= ComboElegirProducto.Items.Text;
  
  DM.QueryVerOfertasHaciaMi.Close;
  DM.QueryVerOfertasHaciaMi.Parameters.ParamByName('miProducto').Value:=productoElegido;
  DM.QueryVerOfertasHaciaMi.Open;

end;

Código Delphi [-]
procedure TForm5VerOfertas.Button1Click(Sender: TObject);
begin
  if not DM.Subastas.Active then 
     DM.Subastas.Open;
  ShowMessage(DM.Subastas.FieldByName('titulo').AsString);
end;

Código Delphi [-]
Edit1.Text:=ComboBox1.Items.text;   //le pido el item ue esta seleccionado en ese momento

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   i : Integer;
begin
   for i := 1 to 5 do
      ComboBox1.Items.Add('Data-' + IntToStr(i));
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
   Edit1.Text := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Text := ComboBox1.Items.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit2.Text := ComboBox1.Items.Text;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   ComboBox1.Text := EmptyStr;
   Edit1.Text := EmptyStr;
   Edit2.Text := EmptyStr;
   Memo1.Text := EmptyStr;
end;

end.

Código Delphi [-]
Edit1.Text:=ComboBox1.Items.text;   //le pido el item ue esta seleccionado en ese momento

Código Delphi [-]
   Edit1.Text := ComboBox1.Text;

Código Delphi [-]
   Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];

Código Delphi [-]
 Edit1.Text := ComboBox1.Items.Text;