Kasowanie listy Opublikowany 2012/02/17 przez pmuch while List.Count > 0 do begin TObject(List[List.Count-1]).Free(); List.Delete(List.Count-1); end;