quiero ordenar en varios edit lo que tengo en un listbox

[ecfisa]

Hola Vanesa007.

Código Delphi [-]
procedure TForm1.btnPasarClick(Sender: TObject);
var
  i,c: Integer;
begin
  c:= 0;
  for i:= 0 to ControlCount-1 do
    if Controls[i] is TEdit then
    begin
      TEdit(Controls[i]).Text:= ListBox1.Items[c];
      Inc(c);
    end;
end;

Saludos.