[Decoding]

Если говорить о текстовом файле, то можно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: integer;
begin
   sl := TStringList.Create;
   sl.LoadFromFile( 'путь_к_файлу.txt' );

   // Удаление пустых строк
   for i := sl.Count-1 downto 0 do
      if Trim( sl.Strings[i] ) = '' then
         sl.Delete( i );

   Memo1.Lines := sl;
   sl.Free;
end;

По поводу того, какой компонент подойдет тебе, Все зависит от того, что тебе нужно в конечном итоге. Если нужно просто прочесть файл, то Memo вполне подойдет. А Если нужно отобразить в ListView, пиши так:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  i: integer;
  li: TListItem;
begin
   sl := TStringList.Create;
   sl.LoadFromFile( 'путь_к_файлу.txt' );

   for i := 0 to sl.Count-1 do
      if Trim( sl.Strings[i] ) <> '' then
      begin
         li := ListView1.Items.Add;
         li.Caption := sl.Strings[i];
      end;

   sl.Free;
end;