[icWasya]

наверно здесь

Код:

for I := 0 to Form1.ListBox1.Items.Count-1 do
    if Form1.ListBox1.Items.Strings[i]<>'~'+Form1.TabControl1.Tabs.Strings[Form1.TabControl1.TabIndex]+' LРР.$$$' then
      b:=True else b:=False; 

надо

Код:

b:=false;
for I := 0 to ListBox1.Items.Count-1 do
    if ListBox1.Items.Strings[i] = '~'+TabControl1.Tabs.Strings[TabControl1.TabIndex]+' LРР.$$$' then
      b:=False; 

И кроме того, в методах формы TForm1 не используй переменную Form1