这是什么错？---Statement expected, but 'var' found

Question

很奇怪啊，VAR定义变量有什么错。
是不是哪里少了什么东西？
而且现在 双击BTN也不可以添加Cilck 事件了，出现could not find source location to add method  btn_addmemeolinesclick "end"or initialization not found in unit source   什么意思啊？？
求救~~~~~~~~谢谢，放分~~~~~！

Answer 1

可能是前面Var前面缺少分号';'了，或者Var方的不是地方，把这个问题解决了，其他的问题就一并解决了

Answer 2

正常情况你是哪里少了个;或者end

Answer 3

VAR  前面也要‘；’啊？？我的代码是 
procedure TFrmLesson002.Btn_ShowListBoxItemClick(Sender: TObject);
begin
var TmpStr:String;
begin
  TmpStr:='TListBox目前行数计'+InttoStr(Lbx_1.Items.Count)+'行'+#13#10+'内容如下'+#13#10+Lbx_1.Items.text;
  showmessage(TmpStr);
end;这里有错吗？？

Answer 4

天那，我怎么也找不到那里少了什么；或END救救我吧

Answer 5

狂晕………………
procedure TFrmLesson002.Btn_ShowListBoxItemClick(Sender: TObject);
begin－－－看到没有？把这个begin去掉！！！
var TmpStr:String;
begin
  TmpStr:='TListBox目前行数计'+InttoStr(Lbx_1.Items.Count)+'行'+#13#10+'内容如下'+#13#10+Lbx_1.Items.text;
  showmessage(TmpStr);
end;