>>343
sl:= TStringList.Create;
try
・sl.Sorted:= True;
・for i:=0 to ComponentCount-1 do begin
・・if Components[i] is TEdit then
・・・sl.AddObject(Components[i].Name, Components[i]);
・end;
・for i:=0 to sl.Count-1 do begin
・・Writeln(F,TEdit(sl.Objects[i]).Text);
・end;
finally
・sl.Free;
end;