Zahlen Soritieren nach größe

[DelphiDustin]

procedure TForm4.Button1Click(Sender: TObject);
var
z1, z2, z3, z4:string;
Stringlist : TStringlist;
begin
listbox1.Clear;
z1:=edit1.text;
z2:=edit1.text;
z3:=edit1.text;
z4:=edit1.text;
Stringlist := TStringList.create;
stringlist.Delimiter:=',';
stringlist.DelimitedText:=edit1.Text;
stringlist.Sorted:=true;
Stringlist.Sort;
listbox1.Items.Add(Stringlist[0]);
listbox1.Items.Add(Stringlist[1]);
listbox1.Items.Add(Stringlist[2]);
listbox1.Items.Add(Stringlist[3]);
end;
end.

Ich benutze Delphi 10.2