PDFファイルから/title (もなもな)を
鳥だそうとしているものです。
/titleが6行目に出てくるので
イカのソースをかいて鳥だそうと
したのですが、化けちゃっています
。
おかしな、部分をご指導願いたい
のですが。

procedure TForm1.PDF1Click(Sender: TObject);
var title1:string;
s1:string;
s2:string;
title2:string;
Li:string;
L1:integer;
PW:PWideChar;

begin
if OpenDialog1.Execute then
begin
//ReadTextByStream(OpenDialog1.FileName,Memo1.Lines);
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
begin
title1 := Memo1.Lines[6]; //6行目取出し;
s1 := copy(title1,9,length(title1)-9); //9文字目から全体の長さ-9を取
出;

PW := @s1; //ポインタ代入;
L1:=length(s1); //長さ代入;
WideCharLenToStrVar(PW,L1,title2); //プロシージャ呼出;
//title2 := WideCharLenToString(PW,L1);
Li := RightStr(OpenDialog1.FileName,10) + ',' + title2;//ファイル名+
抽出結果;
Memo2.Lines.Add(Li); //メモ書き出し;
end;
end;