Problem beim Vergleich verschiedener ListBox-Einträge

[St.Pauli]

Hi,
ich will die Einträge der ListBox4 mit den Einträgen der ListBox2 vergleichen. Die Doppelten Einträge werden dann immer in der LB 4 gelöscht.

Delphi-Quellcode:

  hilfs := ListBox4.Items.Count;

for i := ListBox4.Items.Count -1 downto 0 do
  ProgressBar1.Position := hilfs-i;
    begin
      for i2 := ListBox2.Items.Count - 1 downto 0 do
        begin
          s1 := ListBox4.Items[i];
          s2 := ListBox2.Items[i2];
          if (s1 = s2) then
            begin
              ListBox4.Items.Delete(i);
            end;
        end;
    end;

Nur leider kommt immer die Meldung

Zitat:

[Warning] Unit1.pas(82): Symbol 'FindData' is specific to a platform
[Warning] Unit1.pas(82): Symbol 'FindData' is specific to a platform

Was kann/muss ich machen?