Cacher un programme dans la barre des tâches

procedure TMainForm.FormShow(Sender: TObject);
var
Owner : HWnd;

begin
Owner:=GetWindow(Handle,GW_OWNER);
ShowWindow(Owner,SW_HIDE);
end;