编译时出现的一个小错误

Question

这样应该可以：
procedure TForm1.Button1Click(Sender: TObject);
  procedure  PrintWithDll(cust1: String; cust2: String; code:    String; code_name: String; lines: String)；
  begin
    //
  end;
begin
  PrintWithDll(...);
end;

Answer 1

我是直接把PrintWithDll(...);放在procedure TForm1.Button1Click(Sender: TObject);里,就象这样：
procedure TForm1.Button1Click(Sender: TObject);
begin
 If ... Then
 ShowMessage(...);
PrintWithDll(...);
end;