How do you fill a TIWDBLookupList with ListSource data?

[KristofVR]

"It basically works just like a std VCL TDBLookupListBox. "

Not entirely.

There seems to be a difference with the VCL component, and that is that the cursor does not change while clicking an object in the list.
For example, this code always returns the result of the last record. In VCL this code gives me the value of column1 for the line that is clicked on. 

procedure TIWForm1.IWDBLookupListBox1AsyncClick(Sender: TObject;  EventParams: TStringList);
begin
iwedit1.Text:=clientdataset1.FieldByName('Column1').asString ;
end;