我实在看不懂这段程序错在哪儿？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils;type
  TFrmload = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Frmload: TFrmload;implementation
   uses unit2;
{$R *.dfm}procedure TFrmload.Edit2Change(Sender: TObject);var
   str:string;
begin
   str:=rightstr(edit2.text,1);
  if (str<'0')or (str>'9') then
   showmessage('错误');
   edit2.Text:='';
   edit2.setfocus   else frmmain.Show;
end;
end.[Error] Unit1.pas(44): 'END' expected but 'ELSE' found
[Fatal Error] Project1.dpr(6): Could not compile used unit '..\..\..\..\毕业设计\差不多吧\Unit1.pas'

Answer 1

procedure TFrmload.Edit2Change(Sender: TObject); var 
   str:string; 
begin 
   str:=rightstr(edit2.text,1); 
  if (str <'0')or (str>'9') then 
  begin                      //此处加begin ....end
   showmessage('错误'); 
   edit2.Text:=''; 
   edit2.setfocus ;
  end
   else frmmain.Show; 
end; 

Answer 2

procedure TFrmload.Edit2Change(Sender: TObject);  
var  
  str:string;  
begin  
  str:=rightstr(edit2.text,1);  
  if (str  <'0')or (str>'9') then  
  begin                     
   showmessage('错误');  
   edit2.Text:='';  
   edit2.setfocus ; 
  end 
   else frmmain.Show;  
end; 

Answer 3

[Fatal Error] Project1.dpr(6): Could not compile used unit '..\..\..\..\毕业设计\差不多吧\Unit1.pas'
太搞笑了 

Answer 4

你注意下你保存的是unit1还是别的名字，可能在uses的地方错误。1楼已经把你的错误改过了

Answer 5

procedure TFrmload.Edit2Change(Sender: TObject);  
var  
  str: string;  
begin  
  str := rightstr(edit2.text, 1);  
  if (StrToInt(str) < 0) or (StrToInt(str) > 9) then  
  begin                         
   ShowMessage('错误');  
   edit2.Text := '';  
   edit2.SetFocus; 
  end else frmMain.Show;  
end;