1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure LoadSharpFile(const Filename: string; List: TStrings);
var
  fDatei: TextFile;
  s: string;
begin
  AssignFile(fDatei, Filename);
  Reset(fDatei);
  try
    while not EOF(fDatei) do
    begin
      ReadLn(fDatei, s);
      if (s <> '') and (s[1] <> '#') then List.Add(s);
    end;
  finally
    CloseFile(fDatei);
  end;
end;					

1:

LoadSharpFile('C:\Test.txt',ListBox1.Items)