unit Test;    

interface

procedure aa;                                                                       

implementation                                      

procedure aa;                                                                       
begin
  if some then
  begin
    begin
      Test;
    end;  
  end;
end;

end.
