Delphi goto kullanımı

Merhabalar Arkadaşlar, (Not:Lütfen öneri ve sorularınızı yorum olarak atınız. Teşekkürler şimdiden)

Aşağıdak örnekte delphi programlama dilinde goto kullanım örneğini paylaşmaktayım. Goto ile belirli bir şarta uyan yada uymadığı anda belirli satırdan başlayarak işlemleri yapması adına gideceği satıra gönderme işlemi gerçekleştirilmeltedir.

procedure TForm1.btnTest(Sender: TObject);
....
label
  git;
begin
git:
  ....
  goto git;
  ....
end;

İyi çalışmalar.