ShowWindow(FindWindow('OpWindow',nil), SW_HIDE);

function OpWnd(Handle:HWND;ShowCmd:integer):bool;stdcall;
var s:ANSIstring;
begin
 SetLength(s,100);
 GetClassNameA(Handle,PANSIChar(s),100);
 SetLength(s, lStrLen(PANSIChar(s)));
 if s='OpWindow' then ShowWindow(Handle,ShowCmd);
 result:=true;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
 EnumWindows(@OpWnd,SW_HIDE);//второй параметр это для функции ShowWindow то есть что мы сделаем с окнами оперы.(покажем SW_Show, скроем SW_HIDE)
end;