This works for me:
var
h, p :thandle;
begin
h := FindWindow('Window', PChar(Application.Title));
p := GetParent(h);
if h = Self.Handle then
repeat
h := FindWindowEx(p, h, 'Window', PChar(Application.Title));
until (h = 0) or (h <> Self.Handle);
ShowWindow(h, 0);
end;