Registry (Standard) auslesen, Fehlermeldungen

[Luckie]

Warum rufst du in schowpas reg.destroy auf? Du erstellst doch gar kein Objekt.

Und etwas Formatierung des Quellcodes würde bestiummt auch gut tun:

Delphi-Quellcode:

function pascan: string; 
var
  Reg: TRegistry; // !!!
begin
  Reg := TRegistry.Create(KEY_READ); // !!! 
  try // !!!
    Reg.Rootkey := HKEY_CLASSES_ROOT;
    if Reg.Openkey('.~pas', False) then // !!!
    begin
      Result := Reg.Readstring('');
      Reg.Close; // !!!
    end;
  finally // !!!
    Reg.Free; // !!!
  end;
end; 

procedure showpas; 
begin
  if pascan = '~pas auto file' then
    showmessage('alles ok!'); 
end;

Dann fällt auch auf, dass du die Variable Reg gar nicht deklariert hast. Desweiteren fehlt der Ressourcenschutzblock und man sollte nie Destroy direkt aufrufen, sondern Objekte immer mit Free freigeben - steht aber auch in der Hilfe.

Ich habe mal so eion paar eklatante Fehler bei dir korrigiert.