[Ultras]

а, ну тогда смотри 5ый пост от s0Creator (про TStringList).
пример:

Код:

var
  list: TStringList;
  i: integer;
  tmp_s: string;
begin
  if OpenDialog1.Execute then
  begin
    list := TStringList.Create;
    list.LoadFromFile(OpenDialog1.FileName);
    if list.Count = 0 then
    begin
      MessageBox(Handle,'Список пуст','Ошибка',MB_OK + MB_ICONERROR);
      list.Free;
      Abort;
    end;
    // продолжаем, если в списке есть хотя бы одна строка

    for i:=0 to list.Count-1 do
    begin
      tmp_s := list[i] //получаем строку из списка по циклу

      // ...
      // тут делаем нужные действия с tmp_s или list
      // ...

      // двигаемся к следующей строке и так, до конца цикла
    end;
    list.Free;
  end;
end;