procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
kavexists := false;
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\Cu rrentVersion\Uninstall');
if reg.KeyExists('Max Payne 2') then
MessageBox(Handle,'ура','есть пейн',MB_OK or MB_OK)
else
MessageBox(Handle,'Нефига','нет пейна',MB_OK or MB_OK);
end;
