Fórum Alguem pode me Ajudar aqui.... #528777

Olá, Alguém pode me ajudar neste erro, esse BitBtn ele exite mas ta aparecendo este erro
[img]http://arquivo.devmedia.com.br/forum/imagem/442536-20150815-082414.jpg[/img]
Alguém me ajuda

Obrigado !

dexarei todo codigo!

______________________________________________________________________________________________________________

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, DB, ZAbstractRODataset, ZAbstractDataset,
ZDataset, sSpeedButton;

type
TLogin = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Image5: TImage;
Panel1: TPanel;
sSpeedButton1: TsSpeedButton;
Panel2: TPanel;
sSpeedButton2: TsSpeedButton;
BitBtn1: TBitBtn;
procedure sSpeedButton1Click(Sender: TObject);
procedure sSpeedButton2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Login: TLogin;

implementation

uses Unit3, Unit16, Unit4;

{$R *.dfm}

procedure TLogin.sSpeedButton1Click(Sender: TObject);
begin

if (Edit1.Text = '') and (Edit2.Text = '') then
ShowMessage('Preencha os Campos')
else
if dm.Login.Locate('Usuario',Edit1.Text,[loCaseInsensitive, loPartialKey]) then
begin
if dm.Login.Locate('Senha',Edit2.Text,[]) then
begin
Login.Hide;
Tela_Principal.Show;
ShowMessage('Seja Bem Vindo');
end;
end
else
begin
ShowMessage('Usuario ou senha incorreto.');
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;

end;


procedure TLogin.sSpeedButton2Click(Sender: TObject);
begin
if messagebox(handle,' Deseja Cancelar a operação?','Questão', mb_IconQuestion + mb_YesNo + mb_DefButton1 ) = idYes then
begin
ShowMessage('Obrigado por está conosco, volte sempre!');
begin
Application.Terminate;
end;

procedure TLogin.BitBtn1Click(Sender: TObject);
begin
dm.Login.Insert;
LOGIN2.Show;
end;

end.