Fórum Alguem me ajuda Erro no Delphi... #528550

Você tem que postar o código para que alguém possa te ajudar.

Pela mensagem é bem provável que falta instanciar algum objeto, porém para saber o que é precisar ver o trecho de código.

Boa noite"

Esses dois erros de "Unsatisfied" se dão por que eles não existem. Experimente apagar essa linhas.

Tem outro "Fatal error" ali mas não to conseguindo identificar.

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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;
Panel2: TPanel;
sSpeedButton1: TsSpeedButton;
sSpeedButton2: TsSpeedButton;
Label1: TLabel;
procedure sSpeedButton1Click(Sender: TObject);
procedure sSpeedButton2Click(Sender: TObject);
procedure Label1Click(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
Begin
ShowMessage('Preencha os Campos');
end
else
Begin
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;
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;
end;
end;

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

end.