Fórum Erro na codificação... #528649

Olá, alguém poderia me ajudar neste erro?
Fico grato por quem me ajudar!

[img]http://arquivo.devmedia.com.br/forum/imagem/442536-20150813-154450.jpg[/img]



Está aqui o código todo da tela
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------



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.