Почему-то не работает Assign в Listview

[Ecosasha]

Почему-то не работает Assign в Listview.

Вот например, такой код выводит ошибку:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 TempListItem: TListItem;
begin
  TempListItem.Assign(Listview1.Items.Item[0]);
  showmessage(TempListItem.Caption);
end;

В чем проблема? Как правильно тогда употреблять Assign?

[Ecosasha]

Попробовал так, вроде работает:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 TempListItem: TListItem;
begin
  TempListItem:=TListItem.Create(Listview1.Items);
  TempListItem.Assign(Listview1.Items.Item[0]);
//  TempListItem:=Listview1.Items.Item[0];
  showmessage(TempListItem.Caption);
end;

Это правильный подход?