premennú m:String {m := Copy(s, Pos(',', s) + 1, MaxInt);} nikde nepoužiješ - čo s stým chceš ďalej robiť?