为何创建formcreat()和formshow()出错呢？请各位大师指点，急，谢谢！！！！(20分)

在以下程序用到formcreat()和formshow()，但调试时显示出错，主请问这是什么原因？？
[Error] Unit2.pas(174): Statement expected but 'PROCEDURE' found


procedure Tfrmxsmx.FormCreate(Sender: TObject);
var
vDBPath: string;
begin
vDBPath := ExtractFilePath(Application.ExeName);
with DM.ADOConn do
begin
Connected := False;
ConnectionString := 'Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;'
+'User ID=SA;Initial Catalog=kmacgl;Data Source=kmacdata';
try
Connected := True;
Connected := False;
except
Showmessage('连接数据库失败！');
Application.Terminate;
end;
end;
end;

procedure Tfrmxsmx.FormShow(Sender: TObject);
begin
xh.SetFocus;
end;


procedure Tfrmxsmx.Button5Click(Sender: TObject);
function GetID(ABH: string): string;
var
I: Integer;
begin
with DM.ADOxsjbxxQuery do
begin
Active := False;
SQL.Text := 'Select Right(Max(xh),4) From xsjbxx Where xh Like '''+ABH+'%''';
Active := True;
if Not Eof then
begin
Result := Fields[0].AsString;
if Result='' then
Result := '1'
else
Result := IntToStr(StrToInt(Result)+1);
end
else
Result := '1';
Active := False;
end;
for I:=3 downto Length(Result) do
Result := '0' + Result;
end;

var
vRXNF,vxbdm,vxbmc: string;
begin
vRXNF :=FormatDateTime('yyyy',DateTimepicker2.DateTime);
begin
with DM.ADOxbmcQuery do
begin
Close;
Parameters.ParamByName('xbmc').Value:=xbmc.Text;
Open;
vxbdm :=FieldValues['xbdm'];
Close;
end;
end;
xh.Text := vRXNF + vxbdm + GetID(vRXNF + vxbdm) ;
end;

看错误，应该是普通错误，比如丢下分号，若函数的位置问题。
你的procedure 前面应该还有内容