delphi程序错误 [Error] Unit1.pas(38): Declaration expected but 'IF' found

procedure TForm1.btn1Click(Sender: TObject);
Var
MyStr,InsStr:string;
IndexNo,Count:Integer;
if StrToInt(edt3.Text) > Length(edt1.Text) then
begin
ShowMessage('请不要超过长度！');
Exit;
end;
indexNo :=StrToint(edt2.Text);
Count :=StrToint(edt3.Text);
Mystr :=edt1.Text;
InsStr :=edt4.Text;
Insert(InsStr,Mystr,indexNO);
Edt1.text :=MyStr;
end.

少了个Begin
procedure TForm1.btn1Click(Sender: TObject);
Var
MyStr,InsStr:string;
IndexNo,Count:Integer;
begin
if StrToInt(edt3.Text) > Length(edt1.Text) then
begin
ShowMessage('请不要超过长度！');
Exit;
end;
indexNo :=StrToint(edt2.Text);
Count :=StrToint(edt3.Text);
Mystr :=edt1.Text;
InsStr :=edt4.Text;
Insert(InsStr,Mystr,indexNO);
Edt1.text :=MyStr;
end.

begin th:=loadlibrary('zlds200_tcp_dll.dll'); {装载dll} if th>0 then begin try tp:=getprocaddress(th,pchar('zlds200connect')); if tp<>nil then begin tf:=tintfunc(tp); inttostr(tf(620)); {调用zlds200connect函数} end else showmessage('zlds200connect函数没有找到'); finally freelibrary(th); {释放dll} end; end else showmessage('zlds200_tcp_dll.dll没有找到'); end;