A kérdésfelvetés egy kicsit zavaros volt. A következők nem azt jelentik amit végül összehoztál:
A DBLookupComboBox elemnek kódból hogyan lehetne alapértéket beállítani?
De nem választódik ki a megfelelő id a listában (nem történik semmi). Hogyan tudnám mégis ezt elérni?
Amit összehoztál az pedig csak akkor fogja lecserélni a DBLookupComboBox beviteli mezőjének szövegét ha az teljes egészében ki van jelölve. Ha a kijelölés bármely ok miatt megszűnik (pl. belekattint a felhasználó vagy elmozdítja a beszúrási jelet) akkor a szöveg csak be lesz szúrva az eredeti tartalomba...
Így cseréltetheted le a DBLookupComboBox beviteli mezőjének teljes tartalmát:
Form1.pidDBLookupComboBox.Text := Form2.pidDBLookupComboBox.Text;
Feltéve, hogy ez a cél...