[bistriy]

Проблемму не ту затронул. Я говорил, что проблемма при компиляции исходника хранилища битмапов (вот тут BitmapsStore.rar), а не при компиляции исходника бота.

Код начала и до места возникновения ошибки:

Код:

unit xmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, _BitMapsStore, Menus, FileCtrl, ComCtrls, AForm;

type
  TxMainForm = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel2: TPanel;
    ListBox1: TListBox;
    Panel3: TPanel;
    DirectoryListBox1: TDirectoryListBox;
    Panel4: TPanel;
    DriveComboBox1: TDriveComboBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    StatusBar1: TStatusBar;
    PopupMenu2: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    Panel5: TPanel;
    FileListBox1: TFileListBox;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FileListBox1Click(Sender: TObject);
  private
    FBS:TBitMapsStore;
  public
    procedure ShowPicture;
  end;

var
  xMainForm: TxMainForm;

implementation

{$R *.dfm}

procedure TxMainForm.FormCreate(Sender: TObject);
begin
  ControlStyle:=ControlStyle+[csOpaque];
  FBS:=TBitMapsStore.Create;
  FBS.SetStatusBar(StatusBar1, Application); //Вот тут ошибка при
// компиляции, именно не найден идентификатор SetStatusBar

end;