(FindWindow(PChar('IB_Server'), PChar('InterBase Server')) <> 0) //interbase (FindWindow(PChar('FB_Server'), PChar('Firebird Server')) <> 0) //Firebird