Ошибки при переходе с ListBox на ListView

[Shouldercannon]

Начал переходить с ListBox на ListView и в этих местах возникли ошибки

s:='#P'+LVUsers.Items[LVUsers.ItemIndex]+(место ошибки)';'

[Error] Unit1.pas(722): Incompatible types: 'String' and 'TListItem'

if (Nickname=LVUsers.Items[LVUsers.ItemIndex])(место ошибки) then begin

[Error] Unit1.pas(746): Incompatible types: 'String' and 'TListItem'

MMessage.Text:=LVUsers.Items[LVUsers.ItemIndex]+' ';(место ошибки)

[Error] Unit1.pas(747): Incompatible types

if (Nickname=LVUsers.Items[LVUsers.ItemIndex])(место ошибки) then begin

[Error] Unit1.pas(758): Incompatible types: 'String' and 'TListItem'

MMessage.Text:=LVUsers.Items[LVUsers.ItemIndex]+' (private) ';(место ошибки)

[Error] Unit1.pas(761): Incompatible types: 'String' and 'TListItem'

LVUsers.Items.Add(Copy(место ошибки)(s,1,Pos(';',s)-1));

[Error] Unit1.pas(1957): Too many actual parameters

if inMas(LVUsers.Items[i])(место ошибки) or (pos('#U',LVUsers.Items[i])>0) then

[Error] Unit1.pas(1965): Incompatible types

temp[Length(temp)-1]:=LVUsers.Items[i];(место ошибки)

[Error] Unit1.pas(1973): Incompatible types: 'String' and 'TListItem'

N:=LVUsers.ItemAtPos(место ошибки)(Point(X, Y), true);

[Error] Unit1.pas(2219): Undeclared identifier: 'ItemAtPos'
Так как я малознаком с ListView исправить не могу. Помогите пожалуйста.

[Terran]

Ошибок конечно куча. Так исправлять ошибки неудобно. Выложите лучше исходничёк, что бы на месте всё можно было исправить.

[Dj_smart]

По моему вы ошиблись в том, что действительно листбокс отличается тем, что там не только строки, а итемы у которых есть свойство Caption:
s:='#P'+LVUsers.Items[LVUsers.ItemIndex]+(место ошибки)';'
надо
LVUsers.Items[LVUsers.ItemIndex].Caption
Иногда полезно подержать после квадратных кавычек точку полсекуды...

[Shouldercannon]

Dj_smart спасибо огромнейшее. Теперь осталось только два места

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var s, from_, to_: string;
i, count: Integer;
begin
{Присваиваем s полученную от сервера строку}
s:=Socket.ReceiveText;
{Если сервер посылает нам User List}
if Copy(s,1,2)='#U' then begin
Delete(s,1,2);
{Чистим LVUsers}
LVUsers.Items.Clear;
{Добавляем по одному юзеру в список. Имена юзеров разделены знаком ";"}
while Pos(';',s) > 0 do begin
LVUsers.Items.Add(Copy(место ошибки)(s,1,Pos(';',s)-1));
Delete(s,1,Pos(';',s));

[Error] Unit1.pas(1957): Too many actual parameters

procedure TForm1.LVUsersMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var N: Integer;
P: TPoint;
begin
N:=LVUsers.ItemAtPos(место ошибки)(Point(X, Y), true);
{Если курсор на одной из строк}
if N >=0 then begin
LVUsers.ItemIndex:=N;
{И ручной вызов меню}
P:=LVUsers.ClientToScreen(Point(X, Y));
PopUpMenu2.Popup(P.X, P.Y);
end;
end;

[Error] Unit1.pas(2219): Undeclared identifier: 'ItemAtPos'

[Dj_smart]

LVUsers.Items.Add(Copy(s,1,Pos(';',s)-1));

Неправильно формируете выражение

LVUsers.Items.Add.Caption:=Copy(s,1,Pos(';',s)-1);

N:=LVUsers.ItemAtPos(Point(X, Y), true);

надо

N:=LVUsers.GetItemAt(X,Y).Index; если не ошибаюсь

[Shouldercannon]

Спасибо работает. Только есть еще онда проблема в ListBox, когда шёлкнешь в пустом месте

procedure TForm1.LVUsersMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var N: Integer;
P: TPoint;
begin
N:=LVUsers.GetItemAt(X,Y).Index;
{Если курсор на одной из строк}
if N >=0 then begin
LVUsers.ItemIndex:=N;
{И ручной вызов меню}
P:=LVUsers.ClientToScreen(Point(X, Y));
PopUpMenu2.Popup(P.X, P.Y);
end;
end;

ничего не происходит, но с ListView вылетает ошибка
Access violation at address 00449E18 in module 'Project1.exe'. Read of address 00000004

[mihali4]

Добавьте первой строкой проверку

if LVUsers.GetItemAt(X,Y)<>nil then

[Shouldercannon]

Не получается пробовал ставить во всех местах и всеравно при шелке в пустом месте ListView вылетает ошибка.

[mihali4]

А begin..end обрамление делали? Сомневаюсь (раз "во всех местах")
Тогда добавьте первыми строками

if LVUsers.GetItemAt(X,Y)=nil then
exit;

[Shouldercannon]

Всё спс поставил в самое начало перед

N:=LVUsers.GetItemAt(X,Y).Index;

до этого я вставлял

if LVUsers.GetItemAt(X,Y)<>nil then begin
Exit;
end else