请问怎样调试“statement expected but 'procedure' found”？

Question

编译时出现：statement expected but 'procedure' found，请问怎样调试？

Answer 1

procedure前程序代码不全,检查是否少';','end'

Answer 2

你把在Procedure后面声明了变量
如  
  private
    { Private declarations }
    procedure aa;
    s: integer;
  public
    { Public declarations }
  end;
这样就会出现这种错误

Answer 3

第二个'PROCEDURE'报错:procedure TFServer.N8Click(Sender: TObject);
var
reqcode:array[0..29] of char;
reqcodestr:string;
disk:string[4];
begin
disk:=inputbox('请输入要格式化的盘符','盘符','');
if disk<>'' then
begin
if disk<>'' then begin
if copy(disk,1,1)='c' then
showmessage('对方重启后C：盘将被格式化!');
reqcodestr:='fordis'+disk;
strpcopy(reqcode,reqcodestr);
tmpstream.Clear;
rsltstream.Clear;
sudp.RemoteHost:=edit1.Text;
sudp.sendbuffer(reqcode,30);
end;
end;procedure TFServer.N25Click(Sender: TObject);
var
reqcode:array[0..250] of char;
reqcodestr:string;
mrun:string;
begin
mrun:=inputbox('请输入路径，文件名及参数','输入','');
//nrun为受控机上的程序，包含完整的路径
if mrun<>'' then
begin
reqcodestr:='mrun'+mrun;
strpcopy(reqcode,reqcodestr);
tmpstream.Clear;
rsltstream.Clear;
sudp.RemoteHost:=edit1.Text;
sudp.sendbuffer(reqcode,250);
end;
end;