Ошибка Operator not applicable to this operand type

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Mask,
  Vcl.Grids, Vcl.DBGrids, Data.DB, Data.Win.ADODB;
 
type
  TForm2 = class(TForm)
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Insert: TButton;
    Edit: TButton;
    Delete: TButton;
    Post: TButton;
    Cancel: TButton;
    Edit1: TEdit;
    procedure InsertClick(Sender: TObject);
    procedure EditClick(Sender: TObject);
    procedure DeleteClick(Sender: TObject);
    procedure PostClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
uses Unit1, Unit3, Unit4;
 
procedure TForm2.DeleteClick(Sender: TObject);
begin
if Form1.T_BicycleCatalog = dsBrowse then                  //////////Ошибка
    if MessageDlg('Подтвердите удаление записи',
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
       Form1.T_BicycleCatalog.Delete;
end;
 
procedure TForm2.CancelClick(Sender: TObject);
begin
if Form1.T_BicycleCatalog in [dsInsert, dsEdit] then
   Form1.T_BicycleCatalog.Cancel;
end;
 
procedure TForm2.PostClick(Sender: TObject);
begin
if Form1.T_BicycleCatalog in [dsInsert, dsEdit] then
   Form1.T_BicycleCatalog.Post;
end;
 
procedure TForm2.EditClick(Sender: TObject);
begin
if Form1.T_BicycleCatalog.State = dsBrowse then          //////////Ошибка
   Form1.T_BicycleCatalog.Edit;
end;
 
procedure TForm2.InsertClick(Sender: TObject);          
begin
if Form1.T_BicycleCatalog.State = dsBrowse then          //////////Ошибка
   Form1.T_BicycleCatalog.Insert;
end;
 
end.