我有以下存储颜色值的类：

TMyColors = class
private
  Colors: array [0 .. MaxCols - 1, 0 .. MaxRows - 1] of TColor;
public
  NumColumns: Cardinal;
  NumRows: Cardinal;
  function GetColor1(col, row: Integer): TColor;
  function GetColor2(col, row: Integer): TColor;
end;

function TMyColors.GetColor1(col, row: Integer): TColor;
begin
  Result := Colors[col, row];
end;

function TMyColors.GetColor2(col, row: Integer): TColor;
begin
  if InRange(col, 0, NumColumns - 1) and InRange(row, 0, NumRows - 1) then
    Result := Colors[col, row]
  else
    Result := 0;
end;

NumColumns和NumRows表示实际使用的列和行的数量。
此类应用作多线程应用程序中的全局变量，例如

type
  TMyThread = class(TThread)
     ...
     function GetColor1(col, row: Integer): TColor;
     function GetColor2(col, row: Integer): TColor;
     ...
  end;   

var
  MyColors: TMyColors;
  MyThread1, MyThread2, MyThread3: TMyThread;

function TMyThread.GetColor1(col, row: Integer): TColor;
begin
  Result := MyColors.GetColor1(col, row);
  { Alternative:
  if InRange(col, 0, MyColors.NumColumns - 1) and InRange(row, 0, MyColors.NumRows - 1) then
    Result := MyColors.GetColor1(col, row)
  else
    Result := 0;
  }
end;

function TMyThread.GetColor2(col, row: Integer): TColor;
begin
  Result := MyColors.GetColor2(col, row);
end;

也就是说，所有线程都访问全局变量MyColors中的值。我假设，在这种情况下，GetColor1的使用是线程安全的，即，它可以在多个线程中同时使用（当然，前提是没有其他线程修改Colors的内容）。我还假设，GetColor2不是线程安全的。
我仍然不确定什么时候是线程安全的，什么时候不是，所以有人能证实上面的假设是正确的吗？