tråd, OnTerminate

Hvad er de rigtige parametre til et OnTerminate event ?

Jeg får nedenstående fejl

Incompatible types parameterlists differs

på følgende kode:

    procedure IdTCPClientConnected(Sender: TObject);
    procedure IdTCPClientDisconnected(Sender: TObject);
  private
    procedure WriteData(Node : Integer; StatusData, AData, SData, S2Data : String);
    procedure Terminate(Sender : TObject);
  public
    { Public declarations }
  end;


procedure TFormCallDriver.Button1Click(Sender: TObject);
begin
  With TCollectData.Create do
  begin
    OnDataEvent := WriteData;
    OnTerminate := Terminate;
    FClientSocket := IdTCPClient;
    NodeNo := 3213;
    ConType := 1;
    WriteDelay := 350;
    GetTime := True;
    GetStatusData := True;
    GetAdata := True;
    GetSData := True;
    GetS2Data := True;
    Resume;
  end;
end;



procedure TFormCallDriver.Terminate(Sender: TObject);
begin

end;