(Resolvido) Passar itens de um listBox para outro

[Recife]

Pessoal,

estou precisando de um rotina em que tenho um listbox1 na esquerda com itens carregado dinamicamente. Poderei selecionar tudo, so um ou alguns itens. Após isto ao clicar no respectivo botão deverá ser passado os itens selecionados para outro listbox2(direita). Estou utilizando delphi 5.

[Micheus]

Poderei selecionar tudo, so um ou alguns itens. Após isto ao clicar no respectivo botão deverá ser passado os itens selecionados para outro listbox2(direita). Estou utilizando delphi 5.

O caminho é mais ou menos por aqui:

var
  i: Integer;
begin
  for i := 0 to (ListBox1.Items.Count - 1) do 
  begin
    if ListBox1.Selected[i] then 
    begin
      ListBox2.Items.Add(ListBox1.Items[i]);
    end;
  end;
end;

[Recife]

Poderei selecionar tudo, so um ou alguns itens. Após isto ao clicar no respectivo botão deverá ser passado os itens selecionados para outro listbox2(direita). Estou utilizando delphi 5.

O caminho é mais ou menos por aqui:

var
  i: Integer;
begin
  for i := 0 to (ListBox1.Items.Count - 1) do 
  begin
    if ListBox1.Selected[i] then 
    begin
      ListBox2.Items.Add(ListBox1.Items[i]);
    end;
  end;
end;

Mais uma vez obrigado Micheus, RESOLVEU.