procedure TMainForm.OnEnumerateServersDone(Sender: TObject);
var
  i: Integer;
  TerminalServer: TJwTerminalServer;
 begin

   // Cast Sender to TJwTerminalServer
   TerminalServer := (Sender as TJwTerminalServer);

   // Loop through the enumerated Terminal Servers, if no servers were
   // found the count is 0.
   for i := 0 to TerminalServer.Servers.Count-1 do
   begin
     Memo1.Lines.Add(TerminalServer.Servers[i]);
   end;

   // Don't free TerminalServer var here!
 end;