[Asinkrit]

Простая задача, держи:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpStr, tmpStr2:String;
  i,s,n:integer;
begin
  with ListBox1.Items do
    begin
    BeginUpdate;
    Clear;
    tmpStr:='';
    tmpStr2:='';
    S:=0;
    if Length(Memo1.Text) > 0 then
      for i:=1 to Length(Memo1.Text) do
        if Memo1.Text[i] in [#32, #13, #10] then
          begin
          if TryStrToInt(tmpStr,N) then
            if N > 0 then
              begin
              if S+N <= 90 then
                begin
                Inc(S,N);
                tmpStr:='';
                end
                  else
                    begin
                    Add(tmpStr2+' = '+IntToStr(S));
                    tmpStr:='';
                    tmpStr2:='';
                    S:=N;
                    end;
              tmpStr2:=tmpStr2+IntToStr(N)+' ';
              end
          end
            else tmpStr:=tmpStr+Memo1.Text[i];
    EndUpdate;
    end;
end;