Unit Sail;
implementation

{$R *.DFM}
{описание переменных}
var
X, SUM:Integer;
 {содержимое окна текстового редактора помещается в компонент 
 Memo, суммирование значений стоимости, помещение результата
в компонент Edit3}
procedure TForm1.VvodClick(Sender: TObject);
begin
   Memo1.Lines.Add(Edit1.Text);
   X:=StrToInt(Edit2.Text);
   SUM:=SUM + X;
   Edit3.Text:=IntToStr(SUM);
end;
 {очистка окон редактирования}
procedure TForm1.ClearButtonClick(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
end;
 {очистка окна редактора текста, обнуление суммы}
procedure TForm1.NullClick(Sender: TObject);
begin
  SUM:=0;
  Edit3.Clear;
end;
{задание красного цвета компоненту Memo}
procedure TForm1.RedMenuClick(Sender: TObject);
begin
    Memo1.Color:=clRed;
end;
 {задание желтого цвета компоненту Memo}
procedure TForm1.YellowMenuClick(Sender: TObject);
begin
  Memo1.Color:=clYellow;
end;
{задание зеленого цвета компоненту Memo}
procedure TForm1.GreenMenuClick(Sender: TObject);
begin
  Memo1.Color:=clGreen;
end;
 {выравнивание текста в компоненте относительно правого края}
procedure TForm1.PravClick(Sender: TObject);
begin
  Memo1.Alignment := taRightJustify;
end;
  {выравнивание текста в компоненте относительно левого края}
procedure TForm1.LevClick(Sender: TObject);
begin
   Memo1.Alignment := taLeftJustify;
end;
 {выравнивание текста в компоненте относительно центра}
procedure TForm1.CentClick(Sender: TObject);
begin
   Memo1.Alignment := taCenter;
end;
  {задание белого цвета компоненту Memo}
procedure TForm1.Windows1Click(Sender: TObject);
begin
  Memo1.Color:=clWindow;
end;

end.