como pasar datos de un DBLookupComboBox a otro DBLookupComboBox

[ecfisa]

Hola.

Si los dos TDBLookupComboBox tienen igualadas sus propiedades ListSource, ListField y KeyField, tendrías que enviar al otro form el valor KeyValue del primer DBLookupComboBox para asignarlo al segundo.

Una forma simple sería:

Form1:

Código Delphi [-]
...
implementation

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Self) do
  try
    DLCBValue:= DBLookupComboBox1.KeyValue;
    ShowModal
  finally
   Free
  end;
end;
...

Form2:

Código Delphi [-]
type
  TForm2 = class(TForm)
    ...
    DBLookupComboBox2: TDBLookupComboBox;
    procedure FormShow(Sender: TObject);
  private
  public
    DLCBValue: Variant;
  end;
...
implementation

procedure TForm2.FormShow(Sender: TObject);
begin
  DBLookupComboBox2.KeyValue:= DLCBValue
end;
...

Saludos.