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

Question

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

Answer 1

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

Answer 2

代码逻辑错误！
你一定是少了什么'.',';','begin','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;

Answer 4

procedure TFServer.N25Click(Sender: TObject);前少一个end吧.

Answer 5

不过也不对呀,我的即使是下面这样情况时也会报错:procedure TFServer.N25Click(Sender: TObject);
begin
end;到底是怎么回事?

Answer 6

procedure TFServer.N25Click(Sender: TObject);
begin
end;你检查这个procedure前面的部分
问题不是这个部分，报错的procedure前面的代码有问题。