problem z label / etykiety

mam taki kod ktorego nie moge skompilowac dlaczego ?

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
label
etykieta;



goto etykieta;

end;

nie dziala

Wyrzuć to "nie dziala" na końcu i może zadziała :P
EDIT:
Niech Ci będzie. Label powinno być przed begin. W kodzie ponadto musisz umieścić tą etykietę "etykieta:" tak chyba było.

PS. Nie używaj label ani goto
PS2. Pisz jaśniej posty, bo to co naskrobałeś to tylko na drwiny zasługuje