delphi简单编程问题，编译出错！

中英文的标点符号和语法有错；
用下面（放在TButton的单击事件里）
procedure TForm1.Button1Click(Sender: TObject);
var
zbwnd,qtwnd:hwnd; //声明变量时，不能用“ := ”，只要一个冒号“:”
st:string;

begin
st:='hao123－－我的上网主页 - Microsoft Internet Explorer'; //分号要用英文符号
zbwnd:=findwindow(nil,pchar(st));
qtwnd:=GetForegroundWindow;
if zbwnd <> qtwnd then
showmessage('没有装备') //单引号也是，要用英文符号,还有最后不能加分号
else
showmessage('装备找到');
//这边的end去掉，else 后面没有begin的话，不能用end
end;

var
zbwnd,qtwnd:hwnd;
st:string;
begin
st:='hao123－－我的上网主页 - Microsoft Internet Explorer'；
zbwnd:=findwindow(nil,pchare(st));
qtwnd:=GetForegroundWindow;
if zbwnd <> qtwnd then
showmessage('没有装备’)
else
showmessage('装备找到’)；
end;

试一下。

zbwnd,qtwnd:=hwnd;
改成
zbwnd,qtwnd:hwnd;
定义用:而不是:=
:=是赋值

var