Delphi работа с патоками ресурсов

Подскажите где ошибка постоянно компилятор ругается на эту ошибку. (ResName : string)
private

{$R res.res}
Procedure SavedResStream(ResName : string);

Procedure TForm1. SavedResStream(ResPath : string);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance,'res',RT_RCDATA);
Res.SaveToFile(ResPath);
Res.Free;

end;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
Procedure SavedToStream(PathName : string);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{$R Res.res}

Procedure TForm1.SavedToStream(PathName : string);
var
Res : TResourceStream;
begin
Res:=TResourceStream.Create(hInstance,'Res',RT_RCDATA);
Res.SaveToFile(PathName);
Res.Free;

end;

end.