程序如下:
其中iptext是枚举类型
type
  iptext=record
    name:string;
    text:string[200];
end;过程如下:
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);var
textval:iptext;
begin
  adata.ReadBuffer(textval,adata.Size);
  memo1.Lines.Add(textval.name+':'+textval.text);end;错误提示:
[Error] test.pas(34): Undeclared identifier: 'TIdSocketHandle'
[Fatal Error] qq.dpr(5): Could not compile used unit 'test.pas'