问题请教(50分)

const
Names:array[0..5,0..1] of string =(('Rubble','Barney'),('Michael','Johnson'),
('Bunny','Bugs'),('Silver','Hiho'),('Simpson','Bart'),('Squirrel','Rockey'));
var
i:integer;
NewColum:TlistColumn;
ListItem:TListItem;
ListView:TListView;
begin
ListView:=TListView.Create(self);
with ListView do
begin
Parent:=self;
Align:=alclient;
ViewStyle:=VsReport;
NewColumn:=Columns.add//存在疑问
NewColumn.Caption:='Last';
NewColumn:=Columns.add;
NewColumn.Caption:='First';
for i:=low(Names)to high(Names) do
begin
ListItem:=Items.Add;
Listitem.Caption:=Names[0];
ListItem.SubItems.Add(Names[1]);
end;
end;
end;
end;
我在编译时通不过，请教高手是什么原因，请指教。

將NewColum:TlistColumn;改為NewColumn:TlistColumn;
因為你在程式中用到的都是NewColumn.

還有將NewColumn:=Columns.add//存在疑问
改為NewColumn:=Columns.add;//存在疑问
加個分號。

请讲明出错提示.我现在没有delphi

多人接受答案了。