问个循环多结果输出的问题~~~~~~~~~~~~~

Question

一百匹马驮一百块瓦,公马一匹驮三块,母马一匹驮两块,小马两匹驮一块,问 有多少公马?多少母马?多少小马? 下面代码是我写的，计算输出的结果是17，5，78，结果应该不只一个，如何输出全部结果？procedure TForm1.btn1Click(Sender: TObject);
  var x,y,z:Integer;
begin
   for x:=1 to 33 do
   begin
    for y:=1 to 50 do
    begin
      z:=100-x-y;
    if 3*x+2*y+z/2=100 then
     begin
     edt1.Text:=IntToStr(x);
     edt2.Text:=IntToStr(y);
     edt3.Text:=IntToStr(z);
     end;
    end;
   end;
end;

Answer 1

放一个Memo，改成 if 3*x+2*y+z/2=100 then
   Memo1.Lines.Add(Format('%d,%d,%d',[x,y,z]));