 
			
				28.03.2012, 23:19
			
			
			
		  
	 | 
	
		
		
		
			  | 
			
			
				
				
				 . 
				
				
			 | 
			  | 
			
				
				
					Регистрация: 18.05.2011 
					Адрес: Омск 
					
					Сообщения: 3,970
 
				Версия Delphi: 3,5,7,10,12,XE2 
					Репутация: выкл 
					    
				 
				
			 | 
		 
		 
		
	 | 
	
	
	
		
			
			
			 
			
		
		
		
		1.  
	Код: 
	var
  Buffer : array of Integer;
begin
  SetLength(Buffer, StrToIntDef(Edit1.Text, 0));
...  
 
2. Для начала не помешает массив заполнить.  
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 |