写一个多线程，实现delphi IdUdpServer的OnRead的事件收到的流数据传过去后，能及时保存到文件中

好的，我可以为您提供一个示例代码，如下：

unit UMyUdpServer;

interface

uses
  Classes, IdGlobal, IdSocketHandle, IdUDPBase, IdUDPServer, SysUtils;

type
  TMyUdpServer = class(TIdUDPServer)
  private
    FOnDataReceived: TNotifyEvent;
  protected
    procedure DoUDPRead(AData: TIdBytes; ABinding: TIdSocketHandle); override;
  public
    property OnDataReceived: TNotifyEvent read FOnDataReceived write FOnDataReceived;
  end;

implementation

procedure TMyUdpServer.DoUDPRead(AData: TIdBytes; ABinding: TIdSocketHandle);
var
  Stream: TMemoryStream;
  FileName: string;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.WriteBuffer(AData[0], Length(AData));
    Stream.Position := 0;
    // 在这里可以对Stream进行处理
    if Assigned(FOnDataReceived) then
      FOnDataReceived(Self);
    // 将Stream保存到文件
    FileName := FormatDateTime('yyyymmddhhnnsszzz', Now) + '.dat';
    Stream.SaveToFile(FileName);
  finally
    Stream.Free;
  end;
end;

end.

这是一个继承自`TIdUDPServer`的自定义组件，它重写了`DoUDPRead`方法，在方法内部可以对接收到的数据进行处理，并将数据保存到文件中。同时，这个组件还增加了一个`OnDataReceived`事件，可以在外部接收到数据后进行一些额外的操作。

在使用过程中，您可以将这个组件放在一个线程中，然后启动线程即可。

unit UMyThread;

interface

uses
  Classes, UMyUdpServer;

type
  TMyThread = class(TThread)
  private
    FServer: TMyUdpServer;
  protected
    procedure Execute; override;
    procedure DoDataReceived(Sender: TObject);
  public
    constructor Create;
    destructor Destroy; override;
  end;

implementation

constructor TMyThread.Create;
begin
  FServer := TMyUdpServer.Create(nil);
  FServer.DefaultPort := 12345;
  FServer.OnDataReceived := DoDataReceived;
  FServer.Active := True;
  inherited Create(False);
end;

destructor TMyThread.Destroy;
begin
  FServer.Free;
  inherited;
end;

procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    // do something
  end;
end;

procedure TMyThread.DoDataReceived(Sender: TObject);
begin
  // do something
end;

end.

这个线程中启动了一个`TMyUdpServer`，并将其绑定到了本地的12345端口。同时，它还实现了`DoDataReceived`方法，在这个方法中可以对接收到的数据进行处理。您可以在这个方法中调用其他的处理函数，比如将数据存储到数据库中等。