E2004: 識別子の多重定義 : '%s' (Delphi)

エラーと警告のメッセージ（Delphi）：インデックス への移動

メッセージに表示された識別子はこのスコープ内ですでに宣言済みです。その識別子の名前を別の何かに再使用しようとしました。

program Tests;
var
  Tests: Integer;
begin
end.

{ ここではプログラム名が変数名と同じである。どちらかを変更する必要がある }

program Tests;
var
  TestCnt: Integer;
begin
end.