Ошибка в длл

[Яр|/||< (^_^)]

почему сдесь ошибка

library Project1;

uses
  SysUtils,
  Classes,
  Registry,
  Windows;

{$R *.res}
var
name,prav,isreg:PChar;
leg:boolean;
reg:Tregistry;
key:pchar;
bol:boolean=True;
type
TProcedure=procedure;
procedure crekey();cdecl;export;
procedure proverka();cdecl;export;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
crekey();
try
isreg:=reg.OpenKey(key,True);
if isreg<>prav then
begin
  leg:=false;
end
else if isreg=prav then
begin
leg:=true
end;
except
leg:=false;
end;
end;

procedure crekey();cdecl;export;
begin
key:=PChar('\'+'.flv\PerceivedType');
end;

[DCC Error] Project1.dpr(25): E2010 Incompatible types: 'Boolean' and 'PWideChar'
[DCC Error] Project1.dpr(46): E2029 Declaration expected but end of file found
[DCC Error] Project1.dpr(46): E2029 ';' expected but end of file found

From Stilet: Когда ты научишся код оформлять читабельно? Или на удаления стремишся?

[IliaIT]

если тупо смотреть на код

function TRegistry.OpenKey(const Key: String; Cancreate: boolean): Boolean;
а ты его в isreg:PChar; толкаешь.

key:char; и PChar не одно и тоже.

[Toxa]

вместо

isreg:=reg.OpenKey(key,True);

надо

if reg.OpenKey(key,True) then
isreg:=pchar(reg.readstring('название параметра'));

как то так