[roman]

Y para emular el MoveSelection, si no se cuenta con él:

Código Delphi [-]
procedure MoveSelection(Source, Dest: TListBox);
var
  I: Integer;

begin
  for I := Pred(Source.Count) downto 0 do
    if Source.Selected[i] then
    begin
      Dest.Items.Add(Source.Items[i]);
      Source.Items.Delete(I);
    end;
end;

// Saludos