for I := 0 to GUI.Count do GUI.List[i].Free;
//GUI.Free;
//GUI.Destroy;