，这个 if else 语句如何写啊多谢

求助：各位大哥，这个 if else 语句怎么写啊？谢谢！
请教：
          是这样的：
          edit1.text   的值   可能为   'a ', 'b ', 'c ', 'd '   ,   或者别的
  如果       edit1.text   的值  
  为   'a '       则   j:=1;
  为   'b '       则   j:=2;
  为   'c '       则   j:=3;  
  为   'd '       则   j:=4;
  为   别的     则   j:=0;              

procedure   TForm1.Button1Click(Sender:   TObject);
var
          j:integer;
begin
            if   (edit1.Text= 'a ')   then
                  begin
                              j:=1;
                  end;
            else     if

                        //   后面要怎么写啊？


end;


谢谢！

[解决办法]
这种情况最好不要用if else 嵌套. 可以用Case of

case Edit1.Text[1] of
'a ' : ShowMessage( 'Edit.text第一个字符是a ');
'b ' : ShowMessage( 'Edit.text第一个字符是b ');
'c ' : ShowMessage( 'Edit.text第一个字符是c ');
'd ' : ShowMessage( 'Edit.text第一个字符是d ');
else ShowMessage( 'another ');
end;