Обращение к несуществующему объектам 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;
Замечание: используй различные имена для переменных! |