すいません、ちょっと教えてください。

function F54_GetPrinter(PrintIndex : Integer) : PChar ;
//プリンター情報取得
var
device, driver, port: array[0..80] of Char;
h: THandle;
Str: array[0..255] of Char;
begin
Printer.PrinterIndex := PrintIndex;//プリンタを指定
Printer.GetPrinter(Device, Driver, Port, h);
// win.ini の [windows] の device に書き込む文字列を作る。
StrCopy(str, Device);
StrCat(str, ',');
StrCat(str, Driver);
StrCat(str, ',');
StrCat(str, Port);

strcopy(Result,Str);
//CharをPCharにキャスト

end;

これの、最後のstrcopy(Result,Str);で
「EAccessViolation クラスの例外を生成」
がでてしまうんですが、さっぱり原因がつかめません。

どなたか、ヒントでもお願いします。