[ecfisa]

Hola Lucas.

Según entiendo, podrías hacer:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if DBLookupcomboBox1.Text > '' then
    with TForm2.Create(Self) do
    begin
      Edit1.Text := DBLookupComboBox1.Text;
      ShowModal;
    end;
end;

Saludos.