Переименовать Caption в ListView

[casio23]

на форме есть ListView,Edit,Memo
В Memo загружен текст(28 строк), 1 строка из Memo добавляется в ListView и Edit
Переименование должно происходить через Edit

я делаю так,в Memo переименовывается строка а в ListView нет

var
   i:integer;
   ListItem : TListItem;

begin

i:=0;

if i>Memo1.Lines.Count then begin
Memo1.Lines.Add(Edit1.Text);
ListItem := ListView_Basa.Items.Add;
ListItem.Caption := Metka_Edit.Text;
ListView1.Items.Add(Memo1.Lines[ListView 1.ItemIndex*28]);
end else begin
Memo1.Lines[ListView1.ItemIndex*28] := Edit1.Text;
Basa_StringList.Lines[ListView_Basa.ItemIndex*28]:=
ListView_Basa.Items[ListView_Basa.ItemIndex]; // 
в этой строке incompatible types String and TListItem
end;

From Stilet: А что код оформить уже не модно? Это последнее предупреждение - потом тему удалять буду

[asmodey1]

Потому что :

Basa_StringList.Lines[ListView_Basa.ItemIndex*28]:=
ListView_Basa.Items.Item[ListView_Basa.ItemIndex].Caption;

[mss]

> в Memo переименовывается строка

Бредятина.
В Мемо у строки НЕТ имени.

[casio23]

Сообщение от asmodey1

Потому что :

Basa_StringList.Lines[ListView_Basa.ItemIndex*28]:=
ListView_Basa.Items.Item[ListView_Basa.ItemIndex].Caption;

СПАСИБО