[camiz]

hola amigos necesito su ayuda, estoy realizando una aplicación que el usuario diseña su propio formulario y luego lo carga su diseño hasta hay todo bien el problema que tengo es para guardar los datos ingresados en los Edit y Memos he creado este código pero hay un problema que solo me guarda los datos del ultimo control en todos los campos de la tabla, a ver si alguien me da una manito Gracias.

Código Delphi [-]
var
  Field: TField;
  Lista: TList;
  f, I: Integer;
  Edit: TEdit;
  Memo: TMemo;
begin
  frmConeccion.Guardar.SQL.Clear;
  frmConeccion.Guardar.SQL.Text := 'select * from tabla where idtabla=:id';
  frmConeccion.Guardar.Active := True;
  frmConeccion.Guardar.Open;
  frmConeccion.Guardar.insert;
  for f := 1 to frmConeccion.Guardar.FieldCount-1 do
  begin
    if frmConeccion.Guardar.Fields[f] is TField then
    begin
      Field := frmConeccion.Guardar.Fields[f] as TField;

      Lista := TList.Create;
      try
        frmPlantilla.ScrollB.GetTabOrderList(Lista);
        for I := 0 to Lista.Count - 1 do

        if TWinControl(Lista[i]) is TEdit then
          Field.AsString := TEdit(Lista[i]).Text
        else
        if TWinControl(Lista[i]) is TMemo then
          Field.AsString := TMemo(Lista[i]).Lines.Text
        else
      finally
       Lista.Free;
      end;
    end;
  end;
  frmConeccion.Guardar.Post;
  frmConeccion.Guardar.Close;
  Application.MessageBox('Registros Guardados correctamente','Mensaje',MB_ICONINFORMATION or MB_OK);
  frmConeccion.Guardar.Active := False;