Разбиение числа

[Neitrosha]

смысл задачи был в том, чтобы любое число разбивалось на три неповторяющихся слагаемых

procedure TForm1.Button1Click(Sender: TObject);
var
  x, a, b, c, code: Integer;
begin
  Val(Edit1.Text, x, code);
  if code <> 0 then
  begin
    ShowMessage('Введите число');
    Exit;
  end;
  Randomize;
  a := 1 + Random(x div 4);
  b := a + 1 + Random(x div 3);
  c := x - a - b;
  while (c = a) or (c = b) do
  begin
    Inc(b);
    Dec(c);
  end;
  Memo1.Lines.Add (IntToStr(a) + ' + ' + IntToStr(b) + ' + ' + IntToStr(c));
end;

и вот у меня вопрос, глупый, конечно, но сам не знаю, как сделать

скажем, вбил одно число, поклацал по нему, посмотрел значения, захотел вбить другое число, и чтобы при нажатии на баттон всё мемо очистилось, и уже появились другие значения

end.

[unbanned]

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Text:='';
end;

если я правильно тебя понял, то можно вот так. при клацании по второй кнопке содержимое memo удаляется...

кстати можно сделать проще, если тебе нужно чтоб в мемо была только одна комбинация чисел...
можно поставить memo1.Text:=''; сразу после begin в обработчике первой кнопки. тогда при нажатии на неё текст содержащийся в мемо удалиться, и запишется твоя комбинация чисел