Mostrar en un TEdit el elemento seleccionado en un TListbox

[dec]

Hola,

Empezado por egostar

Hola, te sugiero que titules los hilos de acuerdo a tu pregunta, este que has puesto no nos dice nada y no sirve para futuras consultas de otros compañeros que tuviesen la misma duda.

Está bien que lo menciones. Ya he editado el título.

Respecto del código que has puesto como ejemplo, igual podría añadirse la comprobación de que, efectivamente, hay algún elemento seleccionado en la lista:

Código Delphi [-]
procedure TForm1.ListBox1KeyUp(Sender: TObject; 
 var Key: Word; Shift: TShiftState);
begin
  if ListBox1.ItemIndex <> -1 then begin
    Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
  end;
end;

¿Eh?