[AlexandrV]

Ты ошибку допустил вот здесь

Код:

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;

Вместо False True надо а так все работает. Большое спасибо