Описание модулей и процедур приложения. 
Название, назначение

Основной код программы содержит процедуры: Процедура подтверждения выхода из программы:

procedure TForm2. N2Click (Sender: TObject); begin.

if N2. visible=true если кнопки N2 активна то then.

if MessageBox (Handle, 'Вы действительно хотите выйти', 'подтверждение', MB OKCANCEL or MBICONERROR) = mrOK then Application. Terminate;

выход окна с подтверждением выхода их программы.

end;

Открытие файла:

procedure TForm2. ToolButton4Click (Sender: TObject);

var раздел описания переменных.

S: String; строка.

F: TextFile; файл.

begin.

Настраиваем диалог на отбор текстовых файлов:

OpenDialogl .Filter: Текстовые файлы] *.txt| Файлы Паскаля | * .pas';

Выполняем диалог и анализируем его результат.

if OpenDialogl. Execute and FileExists (OpenDialogl .FileName) then.

begin.

Открываем файл.

AssignFile (F, OpenDialogl. FileName);

Reset (F); для чтения.

Memo 1.Lines.Clear; // Очищаем редактор

while not EOF (F) do begin // и наполняем его.

ReadLn (F, S); сохранение строки S в файл F.

Memo1 .Lines.Add (S) поместить строку S в поле Memo.

end;

end.

end;

Закрыть файл:

procedure TForm2. ToolButton2Click (Sender: TObject);

begin.

form2.Memol .Lines.Clear; очистка.

end;

Печать Файла:

procedure TForm2. ToolButton3Click (Sender: TObject);

var раздел описания переменных.

LSystem.TextFile; файл.

i:integer; начальное значение.

begin.

if PrintDialogl. Execute then.

begin.

AssignPrn (f); открыть для печати try.

Rewrite (f); сохранение.

For i:=0 to Memo 1.Lines.Count-1 do.

Writeln (f, Memol. Lines[i]); вывод.

finally.

CloseFile (f); закрытие.

end;

end;

end;

Сохранение файла:

procedure TForm2. ToolButtonlClick (Sender: TObject);

begin.

if SaveDialogl. Execute then.

Form2. Memol. Lines. SaveToFile (Form2. SaveDialog 1. FileName+'.txt1); end;

Процедура изменения стиля шрифта:

procedure TForm2. ComboBoxlChange (Sender: TObject);

begin.

memo 1 .Font.Name := ComboBoxl. Items [ComboBoxl .Itemlndex];

end;

Процедура изменения размера шрифта:

procedure TForm2. SpinEditlChange (Sender: TObject);

begin.

if not (SpinEditl. Text = '') then memol. Font. Size := SpinEditl. Value; end;

Процедура активации изменения стиля и размера шрифта по нажатию по форме:

procedure TForm2. ImagelC!ick{Sender: TObject);

var.

1: Integer; begin.

for I := 1 to Screen.Fonts.Count do.

скопируйте название шрифта в комбинированный список.

ComboBoxl. Items. Add (Screen. Fonts. Strings [ 1−1]); выберите текущий шрифт.

ComboBoxl. Itemlndex := ComboBoxl. Items. IndexOf (Memol.Font. Name); end;

Процедура выравнивания текста:

procedure TForm2. Button3Click (Sender: TObject);

begin.

MMemo 11. Alignment:=taLeftJustify;

end;