//声明:
SetWindowText(
  hWnd: HWND;     {窗口句柄}
  lpString: PChar {新标题串指针}
): BOOL;


//举例:
var
  s: string;
begin
  s := '新标题';
  SetWindowText(Handle, PAnsiChar(s));
end;