Ausgabe eines Dynamischen Arrays in ein Memofeld?

[StrangeImp]

Aber das geht auch nich richtig

Delphi-Quellcode:

{ MinSort: }
procedure TForm1.BitBtnMinSortClick(Sender: TObject);
  var
    i,j: Integer; //Zaehlvariablen
    s: String;
    Temp,Min: Integer; //Zwischenspeicher, Minimum
    ZeitAnfang,ZeitEnde: real;
    CounterVertauschungen: Integer;
  begin
      CounterVertauschungen:=0;
      Buttons_Verstecken;
      ZeitAnfang := Time;
      s:=' ';
      for i := 0 to High(Feld) do begin 
          Min := i;                     
        for j := i + 1 to High(Feld) do
            if Feld[j] < Feld[Min] then Min := j;
        Temp := Feld[Min];
        Feld[Min] := Feld[i];
        Feld[i] := Temp;

        If CheckBoxZwischenschritte.Checked=true then <---so?
        for j:=0 to High(Feld) do
            s:=s+IntToStr(feld[j]); 
            MemoZwischenschritte.lines.add(s);
       
        CounterVertauschungen:=CounterVertauschungen + 1;
        ListboxSortiert.Items.Add(IntToStr(Temp));  //Ausgabe
       end;
            LblAuswahl.Caption:='Auswahl:'+ #13+#10+'MinSort';
            ZeitEnde := Time;
            LblEdtSortierzeit.Text := FloatToStrF((ZeitEnde-ZeitAnfang)*24*60*60,ffFixed,10,2);
            Ausgabe_GrafischeDarstellung;
            If CheckBoxZwischenschritte.Checked=true then LblEdtSortierzeit.Text:='---';
            LblEdtVertauschungen.Text:=IntToStr(CounterVertauschungen);
            LblEdtZuweisungen.Text:=IntToStr(3+(CounterVertauschungen*8)+6);
end;