[ecfisa]

Hola Vanesa007.

No pude probar tu adjunto por que falta Unit1.pas.

Con respecto al pasaje del ListBox a los Edits, asigna este procedimiento al evento OnClick de todos ellos:

Código Delphi [-]
procedure TForm1.EditClick(Sender: TObject);
begin
  with ListBox1 do
   if ItemIndex > -1 then  // ¿ Hay un item seleccionado ?
   begin
    (Sender as TEdit).Text := Items[ItemIndex];  // copiar el valor al Edit
    FUltimo:= (Sender as TEdit)     
   end
   else
     SetFocus;  // foco en ListBox
end;

Para cancelar la última acción:

Código Delphi [-]
procedure TForm1.btnDeshacerClick(Sender: TObject);
begin
  if Assigned(FUltimo) then
    FUltimo.Clear;   // borrar contenido ultimo Edit
  ListBox1.SetFocus;
end;

FUltimo es una variable privada de tipo TEdit (también podría ser global a la unit) que se encarga de almacenar el último Edit al que se le asigno un valor.

Saludos.