Delphi - ayuda please ,,, ,,,,,

PORFAVOR ALGUIEN QUE ME AYUDE TENGO DOS LISTBOX Y QUIERO PASAR TODO EL CONTENIDO DE UNO AL OTRO POR MEDIO DE UN BOTON ,,, COMO LE PUEDO HACER YA PUEDO PASAR UN SOLO ELEMENTO AL OTRO LISTBOX PERO NO PUEDO HACER QUE SE PASEN TODOS ,,,,, PLEASE QUIEN SEPA QUE ME CONTESTE LA DUDA ES URGENTE PLEASE .....SALUDOS.... FERCHO

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox2.Items.AddStrings(ListBox1.Items);
//Si quieres borrar los items del ListBox1 cuando los pases
ListBox1.Items.Clear;
end;

Saludos.

PD: No escribas todo en mayúsculas, equivale a gritar.