这个语句错在哪儿？

Question

这个语句错在哪儿？
procedure TForm1.OKbtnClick(Sender: TObject);
begin
if (UserTxt.Text='Admin') and (PSWTxt.Text='123') then
Label3.Caption:='登录成功'+#13+'欢迎使用 Delphi 7'
else
Label3.Caption:='错误'+#13+'用户名为:admin'+#13+'密码为:123'+#13+'注意大小写，请重新在试';
CancelBtn.Click;
end;

Answer 1

有错误提示嘛??还是没有达到你要的效果??
procedure TForm1.OKbtnClick(Sender: TObject);
begin
  if (UserTxt.Text='Admin') and (PSWTxt.Text='123') then
    Label3.Caption:='登录成功'+#13+'欢迎使用 Delphi 7'
  else
  begin
    Label3.Caption:='错误'+#13+'用户名为:admin'+#13+'密码为:123'+#13+'注意大小写，请重新在试';
    CancelBtn.Click;
  end;
end;
这样的??

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    UserTxt: TEdit;
    PSWTxt: TEdit;
    Cancelbtn: TButton;
    OKbtn: TButton;
    Panel1: TPanel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure UserTxtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PSWTxtKeyPress(Sender: TObject; var Key: Char);
    procedure OKbtnClick(Sender: TObject);
    procedure CancelbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
label3.Caption:='用户名:admin'+#13+'密码：123';
end;procedure TForm1.UserTxtKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=13 then
PSWTxt.SetFocus;
end;procedure TForm1.PSWTxtKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
{
if (Key<#48) or (Key>#57) then
Key:=#0;
}
OKbtn.SetFocus;
Exit;
end;procedure TForm1.OKbtnClick(Sender: TObject);
if (UserTxt.Text='Admin') and (PSWTxt.Text='123') then
Label3.Caption:='登录成功'+#13+'欢迎使用 Delphi 7'
else
begin
Label3.Caption:='错误'+#13+'用户名为:admin'+#13+'密码为:123'+#13+'注意大小写，请重新在试';
CancelBtn.Click;
end;procedure TForm1.CancelbtnClick(Sender: TObject);
begin
UserTxt.Text:='';
PSWTxt.Clear;
UserTxt.SetFocus;
end;end.
编译器老提示红色的条件语句出错？

Answer 3

小弟不敢有丝毫马虎，完全照搬您的代码，
用户名为:admin
密码为:123
输入正确。
可是；为何不显示：
Label3.Caption:='登录成功'+#13+'欢迎使用 Delphi 7' 

Answer 4

谢谢，小弟自学delphi个把月，以后还要多向你学习！