procedure SetWindowTitle(handle:TWindow; Text:String);
var
  Name: XTextProperty;
  Status: Int32;
begin
  XChangeProperty(display, handle, XInternAtom(display, "_NET_WM_NAME", False),
      XA_STRING, 8, PropModeReplace, PChar(Text), length(Text)
  );
  XFlush(display)
end;