[angvelem]

Сообщение от ilya38

я не сказал что там просто )

За такой код, бить нужно:

Код:

procedure TForm1.Button1Click(Sender: TObject); 
label 
back; 
var 
 i : integer; 
begin 
back: 
  for i := 0 to ComponentCount-1 do 
  begin 
     if Components[i] is TTabSheet then 
     begin 
       (Components[i] as TTabSheet).Free; 
       goto back; 
     end; 
  end; 
end; 

Применение Label не приветствуется в программировании, так ещё для цикла это просто вредно.