редактор memo

[ALEXXELA]

помогите плиз срочно надо решить задачку
На форме располагаются компоненты: редактор Memo, кнопки + и -, кнопка «Очи-стить» и кнопка Close. Исходно в первой строке редактора находится число 0. На-жатие кнопки + приводит к увеличению содержимого редактора на 1, а кнопки -, к уменьшению на 1. Аналогичный результат может быть достигнут с помощью со-ответствующих клавиш клавиатуры. Если число в редакторе больше 15, то появля-ется линейка прокрутки, с помощью которой ширину редактора можно менять в диапазоне 50 .. 200 пикселей. Нажатие кнопки «Очистить» приводит к установке редактора в исходное состояние. Close заканчивает программу.

[Arigato]

Что значит "увеличению содержимого редактора на 1"?

[ALEXXELA]

ну наверно на другую строчку я так думаю или был 0 и стал 1 ещё раз нажал + стало 2 а может на разных строчках 0
1
2
и т.д.
можете подсказать хотя бы с переходом на др строчку

[Vanta11a]

С учетом полосы прокрутки - скорее всего имеется ввиду количество символов в memo.
Т.е. при последовательном увеличении будет так:
0
00
000
0000
...
Пятнадцать нулей
Если больше 15 - добавить кнопки "расширения" и "сужения" ширины memo.
Смотрите стандартные свойства элементов, для memo -weight вроде бы.

[ALEXXELA]

помогите составить программу для этого задания

[Stilet]

Так что ли?:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ButtonPlus: TButton;
    ButtonMinus: TButton;
    Memo1: TMemo;
    procedure ButtonPlusClick(Sender: TObject);
    procedure ButtonMinusClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
 with  Memo1 do begin Lines.Append(IntToStr(tag)); tag:=tag+1; end;
end;

procedure TForm1.ButtonMinusClick(Sender: TObject);
begin
 with  Memo1 do begin Lines.Delete(Lines.Count-1) ;tag:=tag-1; end;
end;

end.