[PhoeniX]

Так и напиши -

Код:

  for i := 0 to TabSheet1.ComponentCount-1 do
    if TabSheet1.Components[i] is TEdit then
      for j := 63 to 100 do
        if (TabSheet1.Components[i] as TEdit).Name = 'Edit' + IntToStr(j) then
          (TabSheet1.Components[i] as TEdit).Color := clRed;

Или как-то таким же раком... не помню точно...