Regiestry

[ECO]

Hallo zusammen!!
Habe ein Prog gecodet um Menü einträge im Win Explorer zu machen.
Hier erstmal die code.

Delphi-Quellcode:

var
  Form1: TForm1;
 E1,E2,E3: string;
 reg: TRegistry;
 typ: string;

implementation

uses Info2;

{$R *.dfm}
procedure AddFileMenue(FilePrefix, Menue, Command: string);
begin 
  reg := TRegistry.Create; 
  with reg do 
  begin
    RootKey := HKEY_CLASSES_ROOT; 
    OpenKey('.' + FilePrefix, True);
    typ := ReadString('');
    if typ = '' then
    begin
      typ := Fileprefix + 'file';
      WriteString('', typ);
     if reg.KeyExists('typ') = TRUE then ShowMessage ('OK')
    end;
    CloseKey;
    OpenKey(typ + '\shell\' + Menue + '\command', True);

    WriteString('', command + ' "%1"'); 
    CloseKey; 
    Free; 
  end; 
end;

procedure DeleteFileMenue(Fileprefix, Menue: string);
begin
  reg := TRegistry.Create;
  with reg do 
  begin 
    RootKey := HKEY_CLASSES_ROOT; 
    OpenKey('.' + Fileprefix, True); 
    typ := ReadString(''); 
    CloseKey;
    OpenKey(typ + '\shell', True);
    DeleteKey(Menue); 
    CloseKey;
    Free;
  end;
end; 
procedure TForm1.Button1Click(Sender: TObject);
begin
AddFileMenue (E3.Text  E2.Text , E1.Text);

So nun meine Frage möchte das nach dem AddFile überprüft wird ober der eintrag exitiert.
Und dann eine Message Box erscheint ('OK')
else fehler
Habe schon mit if reg.KeyExists oder if reg.ValueExists versucht aber ich weiß nicht
wie ich das mit den Edits mache.
Danke im vorauß
ECO

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]