Камрады, помогите справиться с проблемой, которую демонстрирую на примере простейшего приложения в Delphi 7. На форму положил TRichEdit и TButton. В обработчик кнопки поместил простейший код : procedure TForm1.Button1Click(Sender: TObject); var i2 : Integer; begin i2 := 0; Repeat i2 := i2 mod 16; RichEdit1.Lines.Add( IntToStr( i2 ) ); RichEdit1.Repaint(); if ( 15 <= i2 ) then RichEdit1.Clear(); RichEdit1.Repaint(); INC( i2 ); if ( GetAsyncKeyState( ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83327