Spec,
Мне показалось, что противоречий с тем, что сделал Dilma у Вас нет. Если в Ваш код вставить такое (банальный метод смешения):
[code:1]function THITrayIcon.OnMessage; begin
Result := false;
Case Msg.message Of
..................
WM_SETICON:
begin
FTrayData.hIcon := ParentForm.Icon;
Shell_NotifyIcon(NIM_MODIFY,@FTrayData);
end;
..................
End;
if not Result then
Result := OldMessage(Msg,Rslt);
end;[/code:1]
то работают, вроде, оба варианта.

[b]Dilma[/b], что скажите :?: В Вашем исполнении, получается, надо просто добавить doIcon, с соответствующим сопровождением в определении класса и INI-файле....