Listbox load en fil

Kode 

function Load(Filename: String; Items: Pointer): Boolean;
  function StripWhitespaces(S: String): String;
  var
    I: Integer;
    T: String;
  begin
    for I := 1 to Length(S) do begin
      if S[I] <> ' ' then
        T := T + S[I];
    end;
    Result := T;
  end;
var
  F: TextFile;
  Tmp: String;
  Tmp2: String;
begin
  if Items <> nil then begin
    AssignFile(F, Filename);
    Reset(F);
    while not EOF(F) do begin
      ReadLn(F, Tmp);
      Tmp2 := StripWhitespaces(Tmp);
      if Copy(Tmp2, 1, 1) <> '%' then
        TListBox(Items^).Items.Add(Tmp);
    end;
  end else
    Result := False;
end;

Kode 

Load("C:\\Fil.txt", @ListBoxen)

Kode 

Load("C:\\List.txt", @ListBox1);

jeg bruger denne kode til at loade alle linier i min txt fil ind i en listbox
listbox1.Items.LoadFromFile('c:fil');

men hvad hvis jeg vil loade alle filer, bare ikke den der starter med %

filen:

noget tekst
noget tekst
%noget tekst
%noget tekst
%noget tekst
noget tekst

så forstod du jo godt hvad jeg mente

men jeg vil ikke gøre det på den måde