Source position: msesercomm.pas line 379
procedure setcomcomp(
const alink: icommclient;
const acommcomp: tcustomcommcomp;
var dest: tcustomcommcomp
);