hata kodu

[arsl01]

abi deneme için yeni form açtım bunu yazdım 

procedure TForm3.Button1Click(Sender: TObject);
var
 btnLive: TButton;
begin
btnLive := GetLiveButton(0);
if btnLive <> nil then
begin

  btnLive.Visible := False;

end;
end;


function TForm3.GetLiveButton(LiveButonTag: integer): TButton;
var

I: Integer;
begin
result := nil;
for I := 0 to ScrollBox1.Controls.Count - 1 do
  if ScrollBox1.Controls[i] is TButton then
  begin
    if ScrollBox1.Controls[i].Tag = LiveButonTag then
    begin
      result := TButton(ScrollBox1.Controls[i]);
      Exit;
    end;
  end;
end;
end.

 forma bir adet scrollbox ve onun içine bir buton kattım tagınıda 0 yaptım  çalıştırdım visible false yapmıyor

---

çabam sonsuz ama kaynak bulamadığım için ve herşeyi göremediğim için ama inanın bana çok çabalıyorum kendimi proje yaparak geliştiriyorum

---

bu if şartına girmiyor
if btnLive <> nil then
begin

btnLive.Visible := False;

end;
ni demek sıfır demek değilmi btnlive nasıl sıfır olacakki abi