OpenDialog возвращает кракозябры

[MyLastHit]

Здравствуйте. Не могу уже с OpenDialog ничего поделать! Бьюсь целый час. Возвращает кракозябры и все. Может я его не так использую?(Delphi XE)

procedure TForm2.OpenDialog1Close(Sender: TObject);
begin
  t.LoadFromFile(opendialog1.FileName);
end;

И в онклик кнопки:

  openDialog1.Filter:='Мои книги(.book)|*.book';
  opendialog1.Execute;

t- стринглист

[dmitriegorovih]

Возвращает кракозябры и все. Может я его не так использую?

Я не знаю может Delphi нет тот или Система не та но у меня Delphi 7 и Windows 7 работает все нормально попробуйте вот это.

procedure TForm1.Button1Click(Sender: TObject);
var
t:tstringlist;
begin
t:=tstringlist.Create;

openDialog1.Filter:='Ìîè êíèãè(.book)|*.book';
if OpenDialog1.Execute then begin
t.LoadFromFile(opendialog1.FileName);
memo1.Lines.Assign(t);
end;
end;

[Pein95]

может в онклик написать такое:

if opendialog1.execute then
t.loadfromfile(opendialog1.filename)

опоздал)