Source position: stddlg.inc line 271
procedure TDirCollection.PutItem(
var S: TStream;
Item: Pointer
); virtual;