Изменить выделнную запись ListView

[Shouldercannon]

1. Есть ListView с записями
2. По событию ListView1Click всё содержимое Row передаётся в Form2 в Edit, далее оно там редактируется
3. При нажатии на кнопку Apply внести изменения в выделенную запись ListView из Edit's Form2.

[bulldog5293]

var row:integer;
begin
  row:=Listview1.ItemIndex;
   with Listview1 do
   begin
   Items[ItemIndex].SubItems[0]:=Edit1.Text;
   Items[ItemIndex].SubItems[1]:=Edit2.Text;
   Items[ItemIndex].SubItems[2]:=Edit3.Text;
   end;
end;

[Shouldercannon]

Получилось
Form1

unit Unit1;
...
  public
    { Public declarations }
    row: Integer;
  end;
...
procedure TForm1.ListView1Click(Sender: TObject);
begin
  if ListView1.Selected = nil then Exit;

  row := Listview1.ItemIndex;

  Form2.Edit1.Text := ListView1.Items[ListView1.ItemIndex].Caption;
  Form2.Edit2.Text := ListView1.Items[ListView1.ItemIndex].SubItems[0];
  Form2.Edit3.Text := ListView1.Items[ListView1.ItemIndex].SubItems[1];

  Form2.Show;
end;

end.

Form2

unit Unit2;
...
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.row := Form1.ListView1.ItemIndex;

  with Form1.ListView1 do
  begin
    Items[ItemIndex].Caption := Edit1.Text;
    Items[ItemIndex].SubItems[0] := Edit2.Text;
    Items[ItemIndex].SubItems[1] := Edit3.Text;
  end;
end;

end.

Ошибок пока не выдаёт

[bulldog5293]

лучше

if ListView1.Selected = nil then Exit;

заменить на

if ListView1.Selected<>nil then

[ImmortalAlexSan]

bulldog5293, а в чем разница? Чем 2 вариант лучше 1?

[bulldog5293]

if ListView1.Selected = nil then Exit;

Вызов лишнего действия