Normalement ce code devrait t'aider... La fonction qui t'interesse est SetFiles, qui prend le nom du fichier à ouvrir et le conteneur (en TStrings) des éléments à rajouter.
function GetFileContent(const FileName: string): string;
var
Lines: TStrings;
begin
Result := '';
Lines := TStringList.Create;
try
try
Lines.LoadFromFile(FileName);
except
Exit;
end;
Result := Lines.Text;
finally
Lines.Free;
end;
end; // GetFileContent
procedure AddItem(const Container: TStrings; const Item: string);
begin
if Item <> '' then
Container.Add(Item);
end; // AddItem
procedure SetItems(const FileName: string; const Container: TStrings);
const
DELIMITERS = [' ', ',', ';', #9, #13];
var
C: Char;
Index: Integer;
Content, Item: string;
begin
Container.Clear;
Content := GetFileContent(FileName);
if Content = '' then
Exit;
Item := '';
for Index := 1 to Length(Content) do
begin
C := Content[Index];
if C = #10 then
Continue;
if C in DELIMITERS then
begin
AddItem(Container, Item);
Item := '';
end else
Item := Item + C;
end;
AddItem(Container, Item);
end; // SetItems