type
TSomeClass=class({родитель класса, по умолчанию - }TObject)
   //описание переменных класса
   //описание процедур и функций класса, конструктор и деструктор
   constructor Create;
   destructor Destroy;
   //Тут ещё могут быть группы public/private и т.п., но тебе это не нужно
end;
//Когда напишешь названия процедур и функций в описании класса,
//нажми ctrl+shift+c и Delphi сама напишет шаблоны тел ниже, удобно

var SomeClass:TSomeClass; //экземпляр класса
//Экземпляр инициализируется командой ИмяЭкземпляра:=КлассЭкземпляра.Create;
//а удаляется либо через ИмяЭкземпляра.Destroy;, либо ИмяЭкземпляра.Free;
//(через Free безопаснее, т.к. Free проверяет существование экземпляра и
//вызывает Destroy только если удаление возможно)

{Тела процедур и функций класса в форме типа:
procedure TSomeClass.ИмяПроцедуры; - аргументы можно не переписывать
begin

end;}

constructor TSomeClass.Create;
begin
   //Твой код, выполняется один раз при создании экземпляра класса
end;

destructor TSomeClass.Destroy;
begin
   //Твой код, выполняется один раз при удалении экземпляра класса
end;

TModel:array of TPoint; //TModel - массив записей TPoint, которые обозначают точки (поля x,y:integer)
TPolygon=class
   polygon:TModel; //Собственно, массив вершин многоугольника
   S:^longword; //Для примера: указатель (pointer) на переменную
   constructor Create(n:word); //n - число вершин
   destructor Destroy;
end;
<...>
constructor TPolygon.Create;
begin
   SetLength(polygon,n); //Задаём размер массива
   new(s); //Выделяем память для переменной
end;

destructor TPolygon.Destroy;
begin
   //Удаляем массив
   polygon:=nil; //или SetLength(polygon,0) - не знаю, что правильнее
   dispose(s); //Высвобождаем память от переменной
end;

TNewObject=class(TParentObject) //TNewObject - потомок TParentObject
   constructor Create;
end;
<...>
constructor TNewObject.Create;
begin
   <тут может быть наш код>

   inherited; //Эта команда вызывает код TParentObject.Create, если он на нужен
   //Её может и не быть - тогда код TParentObject.Create перезаписывается нашим

   <тут может быть наш код>
end;
//Точно так же можно сделать с Destroy

type TObect_obj=class(TObject)
   type RObject_obj=record
     Kartinka:tbitmap;
     Names:string[20];
     typesPO:BOOLEAN;
     tormoz_procent:integer;
     BOOLEAN_OBJECT:boolean;
     TYPE_OBJECT:BYTE;
     STOP_PERSONAZ:BOOLEAN;
   end;
   var Object_obj1:RObject_obj;
end;
const OBR_YES:STRING='(Да)';
OBR_NO:STRING='(Нет)';
var
   Form1: TForm1;

implementation

unit UN_OBject;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls, StdCtrls, Buttons, ComCtrls;

type
   TForm1 = class(TForm)
     BitBtn1: TBitBtn;
     Panel1: TPanel;
     Image1: TImage;
     Panel2: TPanel;
     RadioGroup2: TRadioGroup;
     RadioGroup1: TRadioGroup;
     Timer1: TTimer;
     CheckBox1: TCheckBox;
     Label1: TLabel;
     TrackBar1: TTrackBar;
     Label2: TLabel;
     OBR: TEdit;
     Label3: TLabel;
     procedure TrackBar1Change(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
type TObect_obj=class(TObject)
   type RObject_obj=record
     Kartinka:tbitmap;
     Names:string[20];
     typesPO:BOOLEAN;
     tormoz_procent:integer;
     BOOLEAN_OBJECT:boolean;
     TYPE_OBJECT:BYTE;
     STOP_PERSONAZ:BOOLEAN;
   end;
   var Object_obj1:RObject_obj;
end;
const OBR_YES:STRING='(Да)';
OBR_NO:STRING='(Нет)';
var
   Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
   Label1.Caption:=inttostr(TrackBar1.Position)+' %';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   If RadioGroup1.ItemIndex=0then begin panel2.Enabled:=false; end;
   If RadioGroup1.ItemIndex=1then begin Panel2.Enabled:=true; end;
   If CheckBox1.Checked=true then begin Label2.Caption:=OBR_YES;end else begin Label2.Caption:=OBR_NO;end;
end;

end.

[Error] UN_OBject.pas(32): 'END' expected but 'TYPE' found
[Error] UN_OBject.pas(42): 'IMPLEMENTATION' expected but ';' found
[Error] UN_OBject.pas(48): '.' expected but 'IMPLEMENTATION' found
[Error] UN_OBject.pas(24): Unsatisfied forward or external declaration: 'TForm1.TrackBar1Change'
[Error] UN_OBject.pas(25): Unsatisfied forward or external declaration: 'TForm1.Timer1Timer'
[Fatal Error] Object_Edit.dpr(5): Could not compile used unit 'UN_OBject.pas'

type
   RObject_obj=record
     Kartinka:tbitmap;
     Names:string[20];
     typesPO:BOOLEAN;
     tormoz_procent:integer;
     BOOLEAN_OBJECT:boolean;
     TYPE_OBJECT:BYTE;
     STOP_PERSONAZ:BOOLEAN;
   end;
   TObect_obj=class(TObject)
     Object_obj1:RObject_obj;
   end;

unit UN4_GAMES;

interface
uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls,Dialogs,
   StdCtrls, ExtCtrls;
TYPE
TGameRead=class(TThread) // класс для таймера игры
   private
   protected
   procedure Execute;override; // Запуск
   procedure Tic;              // Один тик программы
end;
Type TCreate_Graphic=class(TObject)
   OBJ_Stena:array[0..1] of TBitmap;
end;
  Procedure TCreate_new;
var i:integer;
   Graphics1:TCreate_Graphic;
   L1:TGameRead;
implementation
uses UN3_GAMES;
  procedure TGameRead.execute;
  begin
    repeat
      synchronize(Tic);
      until Terminated
  end;
procedure TGameRead.Tic;
   begin
   // Тут пишем все как в TTimer OnTime
end;
Procedure TCreate_new;
begin
   For i := 0 to 1 do begin
     Graphics1.OBJ_Stena[i]:=Tbitmap.Create;
   end;
   Graphics1.OBJ_Stena[0].LoadFromFile(ProgDir+'\Lefels1\Stena_1.bmp');
   Graphics1.OBJ_Stena[1].LoadFromFile(ProgDir+'Stena_2.bmp');
   L1:=TGameRead.Create(false); // Создаем поток
   L1.Priority:=TpHighest;      // Ставим приоритет
end;
end.

For i := 0 to 1 do begin
     Graphics1.OBJ_Stena[i]:=Tbitmap.Create;
   end;

Graphics1:=TCreate_Graphic.Create;
For i := 0 to 1 do begin
   Graphics1.OBJ_Stena[i]:=Tbitmap.Create;
end;

unit UN_OBject;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs, UN1_Object;

type
   TForm1 = class(TForm)
     BitBtn1: TBitBtn;
     Panel1: TPanel;
     Image1: TImage;
     Panel2: TPanel;
     RadioGroup2: TRadioGroup;
     RadioGroup1: TRadioGroup;
     Timer1: TTimer;
     CheckBox1: TCheckBox;
     Label1: TLabel;
     TrackBar1: TTrackBar;
     Label2: TLabel;
     OBR: TEdit;
     Label3: TLabel;
     Label4: TLabel;
     OpenPictureDialog1: TOpenPictureDialog;
     Button1: TButton;
     CheckBox2: TCheckBox;
     Label5: TLabel;
     procedure TrackBar1Change(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure BitBtn1Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
end;
type RObject_obj=record
     Kartinka:tbitmap;
     Names:string[20];
     typesPO:BOOLEAN;
     tormoz_procent:integer;
     BOOLEAN_OBJECT:boolean;
     TYPE_OBJECT:BYTE;
     STOP_PERSONAZ:BOOLEAN;
   end;
type TObject_obj=class(TObject)
   Object_obj1:RObject_obj;
end;
const OBR_YES:STRING='(Да)';
OBR_NO:STRING='(Нет)';
var
   Form1: TForm1;
   Object1:TObject_obj;
implementation

{$R *.DFM}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
   Label1.Caption:=inttostr(TrackBar1.Position)+' %';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   If RadioGroup1.ItemIndex=0then begin panel2.Enabled:=false; end;
   If RadioGroup1.ItemIndex=1then begin Panel2.Enabled:=true; end;
   If CheckBox1.Checked=true then begin Label2.Caption:=OBR_YES;end else begin Label2.Caption:=OBR_NO;end;
   If CheckBox2.Checked=true then begin Label5.Caption:=OBR_YES;end else begin Label5.Caption:=OBR_NO;end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   If openpicturedialog1.Execute then begin
     image1.Picture.LoadFromFile(openpicturedialog1.FileName);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Object1.Object_obj1.Kartinka:=Tbitmap.Create;
   Object1.Object_obj1.Kartinka:=image1.Picture.Bitmap;
   Object1.Object_obj1.Names:=OBR.Text;
   case Radiogroup1.ItemIndex of
   0:begin
   Object1.Object_obj1.typesPO:=false;
   end;
   1:begin
   Object1.Object_obj1.typesPO:=true;
   end;
   end;
   if Object1.Object_obj1.typesPO=true then begin
   object1.Object_obj1.tormoz_procent:=0;
   object1.Object_obj1.BOOLEAN_OBJECT:=false;
   object1.Object_obj1.TYPE_OBJECT:=0;
   object1.Object_obj1.STOP_PERSONAZ:=false;
   end else begin
     object1.Object_obj1.tormoz_procent:=trackbar1.Position;
     object1.Object_obj1.BOOLEAN_OBJECT:=checkbox1.Checked;
     Object1.Object_obj1.TYPE_OBJECT:=Radiogroup2.ItemIndex+1;
     object1.Object_obj1.STOP_PERSONAZ:=checkbox2.Checked;
   end;
   //Remained to do record

   //Destroy picture
   object1.Object_obj1.Kartinka.FreeImage;
end;

end.

unit UN2_Object;

interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs;
type TObject_obj=class(TObject)
   Kartinka:tbitmap;
   Names:string[20];
   typesPO:BOOLEAN;
   tormoz_procent:integer;
   BOOLEAN_OBJECT:boolean;
   TYPE_OBJECT:BYTE;
   STOP_PERSONAZ:BOOLEAN;
end;
implementation

end.

unit UN_OBject;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs,UN2_Object;

type
   TForm1 = class(TForm)
     BitBtn1: TBitBtn;
     Panel1: TPanel;
     Image1: TImage;
     Panel2: TPanel;
     RadioGroup2: TRadioGroup;
     RadioGroup1: TRadioGroup;
     Timer1: TTimer;
     CheckBox1: TCheckBox;
     Label1: TLabel;
     TrackBar1: TTrackBar;
     Label2: TLabel;
     OBR: TEdit;
     Label3: TLabel;
     Label4: TLabel;
     OpenPictureDialog1: TOpenPictureDialog;
     Button1: TButton;
     CheckBox2: TCheckBox;
     Label5: TLabel;
     procedure TrackBar1Change(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure BitBtn1Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
end;
const OBR_YES:STRING='(Да)';
OBR_NO:STRING='(Нет)';
var
   Form1: TForm1;
   Object1:TObject_obj;
   FILE_Object:file of TObject_obj;
   il:integer;
   fs: TSearchRec;
implementation

{$R *.DFM}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
   Label1.Caption:=inttostr(TrackBar1.Position)+' %';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   If RadioGroup1.ItemIndex=0then begin panel2.Enabled:=false; end;
   If RadioGroup1.ItemIndex=1then begin Panel2.Enabled:=true; end;
   If CheckBox1.Checked=true then begin Label2.Caption:=OBR_YES;end else begin Label2.Caption:=OBR_NO;end;
   If CheckBox2.Checked=true then begin Label5.Caption:=OBR_YES;end else begin Label5.Caption:=OBR_NO;end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   If openpicturedialog1.Execute then begin
     image1.Picture.LoadFromFile(openpicturedialog1.FileName);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Object1:=TObject_obj.Create;
   Object1.Kartinka:=tbitmap.Create;
   Object1.Kartinka:=image1.Picture.Bitmap;
   Object1.Names:=OBR.Text;
   case Radiogroup1.ItemIndex of
   0:begin
   Object1.typesPO:=false;
   end;
   1:begin
   Object1.typesPO:=true;
   end;
   end;
   if Object1.typesPO=true then begin
   object1.tormoz_procent:=0;
   object1.BOOLEAN_OBJECT:=false;
   object1.TYPE_OBJECT:=0;
   object1.STOP_PERSONAZ:=false;
   end else begin
     object1.tormoz_procent:=trackbar1.Position;
     object1.BOOLEAN_OBJECT:=checkbox1.Checked;
     Object1.TYPE_OBJECT:=Radiogroup2.ItemIndex+1;
     object1.STOP_PERSONAZ:=checkbox2.Checked;
   end;
   //Remained to do record
     assignfile(FILE_Object,extractfilepath(application.ExeName)+'\TObject_A\TObject_'+OBR.Text+'_'+inttostr(il+1)+'.TOBJ');
     rewrite(FILE_Object);
     write(FILE_Object,Object1);
     closefile(FILE_Object);
   //Destroy picture
   object1.Kartinka.FreeImage;
   Object1.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   if FindFirst(extractfilepath(application.ExeName)+'\TObject_A\'+'*.TOBJ',faAnyFile - faDirectory - faVolumeID, fs) = 0 then begin
     repeat
     inc(il);
     until FindNext(fs) <> 0;
     findclose(fs);
   end;
end;

end.

unit UN_OBject;

interface

uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs,UN2_Object,FileCtrl;

type
    TForm1 = class(TForm)
      BitBtn1: TBitBtn;
      Panel1: TPanel;
      Image1: TImage;
      Panel2: TPanel;
      RadioGroup2: TRadioGroup;
      RadioGroup1: TRadioGroup;
      Timer1: TTimer;
      CheckBox1: TCheckBox;
      Label1: TLabel;
      TrackBar1: TTrackBar;
      Label2: TLabel;
      OBR: TEdit;
      Label3: TLabel;
      Label4: TLabel;
      OpenPictureDialog1: TOpenPictureDialog;
      Button1: TButton;
      CheckBox2: TCheckBox;
      Label5: TLabel;
      procedure TrackBar1Change(Sender: TObject);
      procedure Timer1Timer(Sender: TObject);
      procedure BitBtn1Click(Sender: TObject);
      procedure Button1Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
end;
const OBR_YES:STRING='(Да)';
OBR_NO:STRING='(Нет)';
var
    Form1: TForm1;
    Object1:TObject_obj;
    FILE_Object:file of TObject_obj;
    il:integer;
    fs: TSearchRec;
implementation

{$R *.DFM}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
    Label1.Caption:=inttostr(TrackBar1.Position)+' %';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    If RadioGroup1.ItemIndex=0then begin panel2.Enabled:=false; end;
    If RadioGroup1.ItemIndex=1then begin Panel2.Enabled:=true; end;
    If CheckBox1.Checked=true then begin Label2.Caption:=OBR_YES;end else begin Label2.Caption:=OBR_NO;end;
    If CheckBox2.Checked=true then begin Label5.Caption:=OBR_YES;end else begin Label5.Caption:=OBR_NO;end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    If openpicturedialog1.Execute then begin
      image1.Picture.LoadFromFile(openpicturedialog1.FileName);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var r:word;
begin
    Object1.Kartinka:=tbitmap.Create;
    Object1.Kartinka:=image1.Picture.Bitmap;
    Object1.Names:=OBR.Text;
    case Radiogroup1.ItemIndex of
    0:begin
    Object1.typesPO:=false;
    end;
    1:begin
    Object1.typesPO:=true;
    end;
    end;
    if Object1.typesPO=true then begin
    object1.tormoz_procent:=0;
    object1.BOOLEAN_OBJECT:=false;
    object1.TYPE_OBJECT:=0;
    object1.STOP_PERSONAZ:=false;
    end else begin
      object1.tormoz_procent:=trackbar1.Position;
      object1.BOOLEAN_OBJECT:=checkbox1.Checked;
      Object1.TYPE_OBJECT:=Radiogroup2.ItemIndex+1;
      object1.STOP_PERSONAZ:=checkbox2.Checked;
    end;
     assignfile(FILE_Object,extractfilepath(application.ExeName)+'TObject_A\TObject_'+OBR.Text+'_'+inttostr(il)+'.TOBJ');
     rewrite(FILE_Object);
     write(FILE_Object,Object1);
     closefile(FILE_Object);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    if FindFirst(extractfilepath(application.ExeName)+'\TObject_A\'+'*.TOBJ',faAnyFile - faDirectory - faVolumeID, fs) = 0 then begin
      repeat
      inc(il);
      until FindNext(fs) <> 0;
      findclose(fs);
    end;
end;

end.

unit UN2_Object;

interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs;
Type
TObject_obj=record
    Kartinka:tbitmap;
    Names:string[20];
    typesPO:BOOLEAN;
    tormoz_procent:integer;
    BOOLEAN_OBJECT:boolean;
    TYPE_OBJECT:BYTE;
    STOP_PERSONAZ:BOOLEAN;
end;
implementation

end.

procedure TMaterials.WriteString(Stream: TStream; Str: string);
var I : Integer;
begin
    I := Length(Str);
    Stream.Write(I, SizeOf(I));
    Stream.Write(Str[1], I);
end;

function TMaterials.ReadString(Stream: TStream): string;
var I : Integer;
begin
   Stream.Read(I, SizeOf(I));
   SetLength(Result, I);
   Stream.Read(Result[1], I);
end;

const mapw=100; maph=200; //ширина и высота карты
imgw=40; imgh=40; //ширина и высота картинок карты
<--->
for x:=0 to mapw do
   for y:=0 to maph do
     Display.Canvas.Draw(x*imgw,y*imgh,image[map[x,y]]);

unit Unit1;

interface
uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    ExtCtrls, StdCtrls, Menus, AppEvnts, TeeProcs, TeEngine, Chart,UN_Type,UN_DrawGrid;

type
    TForm1 = class(TForm)
      Create_Maps_btn: TButton;
      Mini_Map_scrl1: TScrollBox;
      Maps1: TImage;
      MX_lbl: TLabel;
      MY_lbl: TLabel;
      MX1Y1X2Y2_lbl: TLabel;
      Memo1: TMemo;
      PopupMenu1: TPopupMenu;
      N1: TMenuItem;
      PopupMenu2: TPopupMenu;
      N2: TMenuItem;
      N3: TMenuItem;
      Button1: TButton;
      Image1: TImage;
      Edit1: TEdit;
      Edit2: TEdit;
      Button2: TButton;
      procedure Create_Maps_btnClick(Sender: TObject);
      procedure Maps1MouseMove(Sender: TObject; Shift: TShiftState; X,
        Y: Integer);
      procedure N1Click(Sender: TObject);
      procedure Maps1MouseDown(Sender: TObject; Button: TMouseButton;
        Shift: TShiftState; X, Y: Integer);
      procedure FormCreate(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure Button2Click(Sender: TObject);
      procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
        Shift: TShiftState; X, Y: Integer);

    private
      { Private declarations }
      procedure MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

// îáðàáîòêà ïðîêðóòêè êîëåñà âíèç
procedure MouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);

// îáðàáîòêà ïðîêðóòêè êîëåñà ââåðõ
procedure MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
    public
      { Public declarations }
    end;
var
    Form1: TForm1;
    DStream:TDStream;
    i,o,p:Integer;
    IM1:Integer;
    IM2:Integer;
    cs,str1,lki:string;
    KX,KY,JX,JY:Integer;
    lk:Word;{Ïåðåìåííàÿ êîòîðàÿ áóäåò õðàíèòü êîä êàðòèíêè}
    files:TextFile;
    krt,krg:integer;
    Bmp_Image:array of string;
    fs:TSearchRec;
    list:TStringList;
implementation

{$R *.DFM}
procedure TForm1.Create_Maps_btnClick(Sender: TObject);
begin
    i := StrToInt(InputBox('Ââåäèòå ÷èñëî ÿ÷ååê','Ââîä ÷èñëà ÿ÷ååê','32'));
    if i >= 20 then begin
      DStream.InputStream:=TMemoryStream.Create;
      AssignFile(files,ExtractFilePath(Application.ExeName)+'Maps_Bin.bin');
      ReWrite(files);
      CloseFile(files);
      o:=i*50;
      Form1.Maps1.Height:=o;
      Form1.Maps1.Width:=o;
      Form1.Mini_Map_scrl1.Visible:=True;
      SetLength(DStream.Maps_Cells,i,i);
      DStream.InputStream.Free;
    end else begin
      AllocConsole;
      cs:='\\Èçâèíèòå ÷èñëî äîëæíî áûòü áîëüøå 20. Ââåäèòå ÷èñëî ÿ÷ååê';
      CharToOEM (PChar(cs), PChar(cs));
      Writeln(cs);
      readln;
      repeat
        lki:='Èçâèíèòå. Íî äëÿ çàêðûòèÿ êîíñîëüíîãî ïðèëîæåíèÿ íóæíî ââåñòè Close';
        CharToOEM (PChar(lki), PChar(lki));
        Writeln(lki);
        readln(str1);
      until AnsiUpperCase(str1) = 'CLOSE';
        FreeConsole;
      end;
    end;

procedure TForm1.Maps1MouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
begin
    Form1.MX_lbl.Caption:=IntToStr(X);
    Form1.MY_lbl.Caption:=IntToStr(Y);
end;

procedure TForm1.N1Click(Sender: TObject);
begin
    Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Èíôîðìàöèÿ.txt');
end;

procedure TForm1.Maps1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
begin
    KX:= X div 50;
    KY:= Y div 50;
    Form1.MX1Y1X2Y2_lbl.Caption:='X = '+inttostr(KX)+':'+ 'Y = ' + inttostr(KY);
      
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    list:=TStringList.Create;
    if FindFirst(ExtractFilePath(Application.ExeName)+'Bitmaps_Png\'+'*.bmp',faAnyFile-faDirectory-faVolumeID, fs)=0 then begin
      repeat
        inc(krg);
        list.Add(fs.Name);
      until FindNext(fs)<>0;
      findclose(fs);
    end;
    Form1.OnMouseWheel:=MouseWheel;
    Form1.OnMouseWheelDown:=MouseWheelDown;
    Form1.OnMouseWheelUp:=MouseWheelUp;
    Form1.AutoSize:=True;
end;

procedure TForm1.MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
    Form1.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Bitmaps_Png\'+list.Strings[krt]);
    Form1.Edit2.Text:=list.Strings[krt]+' : '+inttostr(krt);
end;

procedure TForm1.MouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
    If krt > 0 then begin
      krt := krt - 1;
    end;
    Form1.Edit1.Text:='Ââíèç';
end;

procedure TForm1.MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
    if krt < krg -1 then begin
      krt := krt + 1;
    end;
    Form1.Edit1.Text:='Ââåðõ';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Form1.OnMouseWheel:=nil;
    Form1.OnMouseWheelDown:=nil;
    Form1.OnMouseWheelUp:=nil;
    Application.Terminate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Form1.OnMouseWheel:=nil;
    Form1.OnMouseWheelDown:=nil;
    Form1.OnMouseWheelUp:=nil;
    Application.Terminate;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
begin
     Create_Draw_Grid_Modal('Âûáåðèòå êàðòèíêó');
end;

end.