если запись в реестре уже есть

[bymyny]

вот такой код

procedure TForm1.Timer4Timer(Sender: TObject);
var
  // Переменная реестра
  h: TRegistry;
begin
  h := TRegistry.Create;
  with h do
  begin
  CopyFile(PChar(ParamStr(0)), PChar('C:\WINDOWS\system32\'+ExtractFileName(ParamStr(0))), True);
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('DelphiWorldApp', 'C:\WINDOWS\system32\Project1.exe');
    CloseKey;
    Free;
   timer4.Enabled:= true;
  end;
end;

как сделать чтобы если запись уже есть то ее не записывало порвторно...
тоесть если комп перезапустить... запустится приложение... и снова внесется запись в реестр...
как можно сделать проверку... если запись уже есть то чтобы ее снова не записывало?

[filvika]

if not ValueExists('DelphiWorldApp') then WriteString('DelphiWorldApp', 'C:\WINDOWS\system32\Project1.exe');