​在 Delphi unigui 中，可以使用以下代码读取手机特征码：

```delphi

uses

  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

  uniGUIVars, uniGUIApplication, uniGUIFrame, uniGUIMainModule, uniGUIForm;

function GetDeviceID: string;

begin

  Result := uniGUIApplication.ClientInfo.DeviceID;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(GetDeviceID);

end;

```

在上面的代码中，`uniGUIApplication.ClientInfo.DeviceID` 可以获取到当前客户端设备的特征码。在按钮的点击事件中，调用 `GetDeviceID` 函数并显示特征码。