модуль VCL

uses VCL;
 
var
 
  F,F1: Form;
  OK: Button;
  knopka: Button;
  c: PaintBox;
  m: MainMenu;
  p: Panel;
  l: TextLabel;
  OpenFile: OpenDialog;
  Savefile: SaveDialog;
  Status:statusbar;
 
  procedure Cl;
begin
F.Close;
end;
 
  procedure AboutClick;
var res:integer;
begin
res:=F1.ShowModal;
end;
 
     procedure rer;
 begin
   if openfile.execute then begin
   c.loadfromfile(openfile.filename);
   Status.caption:=openfile.filename;
   end;
 end;
 
    procedure OKClick;
 begin
 if savefile.execute then begin
    c.savetofile(openfile.filename);
    Status.caption:=openfile.filename;
    end;
    end;
    
    
begin
 F:=Form.Create('Алгоритм сжатия');
  F.SetSize(550,450);
  p:=Panel.Create;
  p.Width:=1;
  p.Align:=alLeft;
  c:=PaintBox.Create(p.width,0,screen.width,screen.height);
//  c.Align:=alClient;
 
  m:=MainMenu.Create;
  m.Add('Файл');
  m.Add('Помощь');
  m.Add('Сжать');
  m[1].Add('Открыть',rer,'OPEN');
  m[1].Add('Сохранить',OKClick,'SAVE');
  m[1].Add('Выход',Cl, 'EXIT');
  m[2].Add('О программе...',AboutClick,'HELP');
  F1:=Form.Create(F.Left+100,F.Top+100,220,150);
  F1.BorderStyle:=bsDialog;
  F1.Caption:='О программе';
  L:=TextLabel.Create(F1,15,30,'Разработчик: В. В.');
  OK:=Button.Create(F1,65,70,'OK');
  OK.OnClick:=OKClick;
  OpenFile:=OpenDialog.create('*.bmp');
  SaveFile:=SaveDialog.create('*.bmp');
  Status:=statusbar.create;
end.