s := ''; for i := Low(Sources) to high(Sources) Do s := s + ' ' + FloatToStr(Sources[i]); showmessage(s);