procedure TfrmAT_Messages.spSkinListView1Change(Sender: TObject;
  Item: TListItem; Change: TItemChange);
var
  idx: integer;  
begin
  spSkinMemo1.Clear;
  if (Item <> nil) or
     (TspSkinListView(Sender).SelCount > 0)
     then begin
            if Item.SubItems.Count > 4 then
            spSkinMemo1.Text:= Item.SubItems[5];
          end;
end;