Программа для создания программ

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TFileStream;
  M: TMemoryStream;
  L: int64;
begin
  F :=TFileStream.Create('P1.exe',fmOpenWrite or fmShareDenyWrite);
  M :=TMemoryStream.Create;
  Memo1.Lines.SaveToStream(M);
  M.Seek(0,soFromBeginning);
  F.Seek(0,soFromEnd);
  F.CopyFrom(M,0);
  L:=M.Size+SizeOf(int64);
  F.Write(L,SizeOf(int64));
  F.Free;
  M.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  F: TFileStream;
  M: TMemoryStream;
  L: int64;
begin
  Memo1.Clear;
  F :=TFileStream.Create('P1.exe',fmOpenRead or fmShareDenyWrite);
  F.Seek(-SizeOf(int64),soFromEnd);
  F.Read(L,SizeOf(int64));
  F.Seek(-L,soFromEnd);
  M :=TMemoryStream.Create;
  M.SetSize(L-SizeOf(int64));
  M.CopyFrom(F,L-SizeOf(int64));
  M.Seek(0,soFromBeginning);
  Memo1.Lines.LoadFromStream(M);
  F.Free;
  M.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  if ExtractFileName(paramStr(0))='P1.exe' then Button1.Visible:=false;
end;
 
end.