Вывод нескольких значений в Memo

for i:=1 to StringGrid1.RowCount-1 do  //ñòðîêà
           begin
          min:=glmas[i,1];
          for j:=1 to StringGrid1.ColCount-1 do  //ñòîëáåö
             begin
             if glmas[i,j]<min then
            min:=glmas[i,j];
            end;
          minzna4[i,j]:=min;//ìàññèâ ïîèñêà èç ìèíèìàëüíûõ çíà÷åíèé
          StringGrid2.Cells[1,i]:=FloatToStr(minzna4[i,j]);
 
         { Memo1.Text:=FloatToStr(min{minzna4[i,j]})+',';}
          
         for i1:=1 to StringGrid1.RowCount-1 do
             max:=minzna4[1,1];
             begin
              for j1:=1 to StringGrid1.ColCount-1 do
                  begin
               if minzna4[i,j]>max then max:=minzna4[i,j];
                   end;
                    Label4.Caption:=')='+FloatToStr(max);
                    end;
             end;
 
             end;//êîíå÷íûé áåãèí