Пропишите её в секции Type:
Код:
type
TForm1 = class(TForm)
btn1: TrkGlassButton;
btn2: TrkGlassButton;
_sg1: TStringGrid;
ImEmblem: TImage;
img1: TImage;
edt1: TEdit;
lbl1: TLabel;
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TablD;
private
{ Private declarations }
public
{ Public declarations }
FileName: string;
end;
А затем выполните комплит класс эт курсор