1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software\EA Sports\FIFA 09', False) and Reg.ValueExists('Install Dir') then
      ShellExecute(application.handle, 'open', PChar(Reg.ReadString('Install Dir') + 'fifa09.exe'), nil, nil, SW_SHOWNORMAL)
    else
      ShowMessage('Spiel nicht gefunden');
  finally
    Reg.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software\EA Sports\FIFA 09', False) and Reg.ValueExists('Install Dir') then
      ShellExecute(application.handle, 'open', PChar(Reg.ReadString('Install Dir') + 'fifa09.exe'), nil, nil, SW_SHOWNORMAL)
    else
      ShowMessage('Spiel nicht gefunden');
  finally
    Reg.Free;
  end;
end;					

1:
2:

var
  Reg: TRegistry;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

uses registry;

procedure GetInfo(Dest: String);
  const
    KEY       = 'Software\EA Sports\FIFA 09';
    W_NAME    = 'Install Dir';
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;

   if OpenKey(KEY,False) then
    with TStringList.Create do
    try
      Add(W_NAME    + ': ' + ReadString(W_NAME));
    finally
      Free;
    end;

  finally
    Free;
  end;
end;


var regist : Tregistry;
procedure TForm1.Button1Click(Sender: TObject);
begin
 regist := Tregistry.create;
 regist.rootkey := hKEY_Local_machine;
 if regist.openkey('Software\EA Sports\FIFA 09', false) and regist.ValueExists('Install Dir') then
 shellexecute(application.handle, 'open', Pchar(regist.readstring('install dir') + 'FIFA09.exe'), nil, nil, SW_show)
 else
    ShowMessage('Spiel nicht gefunden');
 regist.closekey;
 regist.Free;
end;					

1:
2:
3:
4:
5:
6:

var regist : Tregistry; // NICHT DA BITTE ^^
procedure TForm1.Button1Click(Sender: TObject);
var regist : Tregistry; // Hier bitte
begin
 regist := Tregistry.create;
 usw...