Delphi XE5 【TDBCtrlGridでTDBLookupComboBoxを使う方法】

OnDropDownで

var
i: Integer;
dl: TDataLink;
begin
with Sender as TDBLookupComboBox do
for i:= 0 to ControlCount-1 do
if Controls[i] is TPopupDataList then
begin
dl := Pointer(Controls[i].Perform(CM_GETDATALINK, 0, 0));
if (dl <> Nil) and dl.DataSourceFixed then
begin
dl.DataSourceFixed := False;
dl.DataSource := Nil;
end;
Break;
end
end;

と呪文唱えればOKだそうだ。
何処で調べたか忘れた。。。。

書かないとエラーに成る事は納得できないが。。。。