Wo kann ich den Timer Free'en ?

[Pseudemys Nelsoni]

hallo

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  timer: TTimer;
begin
  SetLength(clients, length(clients)+1);
  clients[high(clients)] := Socket.RemoteAddress;
  timer := TTimer.Create(nil);
  with timer do
  begin
    Interval := 30000;
    OnTimer := TimerEvent;
    enabled := true;
  end;
  listbox1.Items.Add(socket.LocalAddress);
end;

procedure TForm1.TimerEvent(Sender: TObject);
begin
  ServerSocket1.Socket.Connections[0].Close;
  // hier müsste ich ihn frei machen. Sender.free; ?
end;

hat jemand ne idee wie ich den zur laufzeit erzeugten timer wieder aus dem speicher bekomme?