Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 51 стр.

  var
     Form1: TForm1;
implementation
  uses u51;
  {$R *.dfm}
  procedure TForm1.N21Click(Sender: TObject);
     begin
        form2.Show;
     end;
  procedure TForm1.FormActivate(Sender: TObject);
    begin
       Memo1.Lines.Add('Ʌɚɛɨɪɚɬɨɪɧɚɹ ɪɚɛɨɬɚ ʋ5');
    end;
   procedure TForm1.N1Click(Sender: TObject);
      begin
         if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font
      end;
end. { U5}

unit U51;
{
}
interface
   uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
      Forms, Dialogs, Grids, Menus, StdCtrls, Buttons;
   type
      TForm2 = class(TForm)
                 MainMenu1: TMainMenu;
                 N1: TMenuItem;
                 N2: TMenuItem;
                 N3: TMenuItem;
                 N4: TMenuItem;
                 StringGrid1: TStringGrid;
                 SaveDialog1: TSaveDialog;
                 OpenDialog1: TOpenDialog;
                 N5: TMenuItem;
                 BitBtn1: TBitBtn;
                 procedure FormActivate(Sender: TObject);
                 procedure StringGrid1SetEditText(Sender: TObject; ACol,
                                         ARow: Integer;const Value:
                                         String);

                                   51