Преобразовать бинарный файл в строки.

[jihot]

Здравствуйте.

Помогите преобразовать бинарный файл в строки.
Есть обычный файл, который нормально читается блокнотом. Но в делфи не могу его загрузить..

http://ifolder.ru/26200829

[JUDAS]

procedure TForm1.Button1Click(Sender: TObject);
var data : array of byte;
    str  : TFileStream;
begin
  str  := TFileStream.Create('Events.txt', fmOpenRead);
  setlength(data, str.Size);
  str.Read(data[0], str.Size);
  str.Free;
  memo1.Text:= WideCharToString(PWidechar(data));
  Finalize(data);
end;

Получаю вот это:

[jihot]

Сообщение от JUDAS

procedure TForm1.Button1Click(Sender: TObject);
var data : array of byte;
    str  : TFileStream;
begin
  str  := TFileStream.Create('Events.txt', fmOpenRead);
  setlength(data, str.Size);
  str.Read(data[0], str.Size);
  str.Free;
  memo1.Text:= WideCharToString(PWidechar(data));
  Finalize(data);
end;

Получаю вот это:

оно, спасибо.