Agregar item de listbox a un memo

[ecfisa]

Empezado por Gerson12

tengo unos items generados en un listbox y quiero q al seleccionar un item se agregue cierto item al memo

Hola Gerson12.

No me termina de quedar claro cuál es el ítem del TListBox que queres que se agrege al Memo, pero si es el seleccionado, podes hacer:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with ListBox1 do
    if ItemIndex <> -1 then
      Memo1.Lines.Add(Items[ItemIndex]);
end;

Si es otro que el actualmente seleccionado, tendrías que explicar mejor que criterio deseas usar para seleccionar el ítem a agregar.

Saludos.