procedure TFrmMain.BtnSubeClick(Sender: TObject);
var
i,j,k:integer;
aux1,aux2,aux3,aux4:string;
begin
lvcopy.MultiSelect:=false;
lvcopy.SetFocus;
LvCopy.Selected:=Lvcopy.Items[seleccion];
if LvCopy.Selected = nil then
begin
application.MessageBox(pchar('No hay Ninguna Selección.'),pchar('Información'), (MB_OK + MB_ICONINFORMATION));
exit;
end;
for i:=0 to LvCopy.Items.Count-1 do
begin
if LvCopy.Items[i].Selected then
begin
if i=0 then exit;
aux1:=LvCopy.Items[i].SubItems[0];
aux2:=LvCopy.Items[i-1].SubItems[0];
aux3:=LvCopy.Items[i].SubItems[1];
aux4:=LvCopy.Items[i-1].SubItems[1];
LvCopy.Items[i].SubItems[0]:=aux2;
LvCopy.Items[i-1].SubItems[0]:=aux1;
LvCopy.Items[i].SubItems[1]:=aux4;
LvCopy.Items[i-1].SubItems[1]:=aux3;
LvCopy.Selected:=Lvcopy.Items[i-1];
seleccion:=seleccion-1;
exit;
end;
end;
end;