[Amgsys HQ]

Обращение к несуществующему объектам Form1, Image1 и Krug во втором юните. Перед обращения к ним, их нужно создать для начала:

Код:

Form1 := TViz.Create;
Krug := TKrug.Create;

А Image1 нужно инициализировать в конструкторе класса TViz:

Код:

constructor TViz.Create;
begin
  Image1 := TImage.Create(nil);
  ...
end;

destructor TViz.Destroy; override;
begin
  Image1.Free;
end;

Замечание: используй различные имена для переменных!