كيف نتجنب نعليق البرنامج في خالة for loop high counts

[FRXstar]

ادا كان البرنامج يعمل لوب اكثر من 20 الف مرة
البرنامج يعلق بعد 2300 مرة

PHP كود :

TForm1 = class(TForm)
    Start_BTN_: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button1: TButton;
    CurvyCombo1: TCurvyCombo;

    procedure FormActivate(Sender: TObject);
    procedure Start_BTN_Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Memo2Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject); 


كود :

for I := 0 to Line_count-1 do        begin end;