关于占用内存的问题

程序刚运行在任务管理器中内存使用显示为7000多K
运行以下代码后显示25000K如何释放内存啊？procedure TForm1.SpeedButton12Click(Sender: TObject);
var
  l:TStringList;
begin
try
 L:=TStringList.Create;
  L.Add('机号 附加费  押金  总费用           上机时间                       下机时间');
  with ADOQuery1 do
   begin
     close;
     sql.Clear;
     sql.Add('select top 5 * from 每日结算 order by 编号 desc');
     open;
     First;
     while not eof do
      begin
        l.Add(formatfloat(' 00',FieldValues['机号'])+'     '+Formatfloat('##0.00',FieldValues['商品费用'])+'      '+Formatfloat('##0.00',FieldValues['押金'])+'    '+Formatfloat('##0.00',FieldValues['总费用'])+'      '+Fieldbyname('上机时间').Text+'      '+Fieldbyname('下机时间').Text+'         ');
        Next;
      end;
    close;
   end;
   ShowMessage(l.Text);
   FreeAndNil(l);
 except
   Freeandnil(l)
 end;
end;