运行中出现的问题，困惑！

Question

好几次，我编写的几个小程序，当运行时总出现Expected'='but'('found.的一个对话框，到底哪错了，我真是找不出，大哥们，能帮的来呀！

Answer 1

是编译的时候吧，要不把程序贴上来。发我信箱也行：[email protected]

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure TForm1.Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure DivideCanvas(formBegX,ImageBaseX,HalfImageWidth:Integer);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.divideCanvas(formBegX,ImageBaseX,HalfImageWidth:Integer);
var x,y:integer;
begin
  for x:=0 to HalfImageWidth-1 do
  begin
    for y:=0 to Image1.Height-1 do
    begin
      Canvas.Pixels[formBegX+x,y]:=Image1.Canvas.Pixels[ImageBaseX+x,y];
    end;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  HalfImageWidth:Integer;
begin
  HalfImageWidth:=Image1.Width div 2;
  divideCanvas(0,0,HalfImageWidth);
  divideCanvas(halfImageWidth+50,HalfImageWidth,HalfImageWidth);
end;end.
就是这个小程序！！