Miscellany

procedure TFormMain.ListViewServersDblClick(Sender: TObject);
var cname: String;
    cip:   String;
begin
  if ListViewServers.Selected.Caption <> '' then
  begin
    cname := ListViewServers.Selected.Caption;
    cip   := ListViewServers.Selected.SubItems.Strings[0];
    InputQuery('Computername', 'Edit', cname);
    InputQuery('ComputerIP', 'Edit', cip);
    ListViewServers.Selected.Caption := cname;
    ListViewServers.Selected.SubItems.Strings[0] := cip;
  end
end;