una cosa segun entiendo cada campo tiene el nombre del edit, pero no necesariamente su indice, asi que yo sugeriria algo como :
Código Delphi
[-]
var
I, J: Integer;
begin
for J := 0 to Pred(Form.ComponentCount) do
if (Form.Components[J] is TEdit) then
begin
TEdit(Form.Components[J]).Text := DataSet.FieldbyName(TEdit(Form.Components[J]).Name).AsString;
end;
end;
pero para que funcione debe ser cierta la premisa de que el nombre del campo = al nombre del edit