народ ошибка в коде? или я дурак

Question

procedure TForm1.sRadioButton1Click(Sender: TObject);
begin
{åñëè òåêóùèé êëþ÷ íå HKEY_LOCAL_MACHINE, òî äåëàåì åãî
àêòèâíûì è, åñëè íóæíî, îáíîâëÿåì èíôîðìàöèþ â ListBox1}
if Key<>windows.HKEY_LOCAL_MACHINE then
begin
key := Windows.HKEY_LOCAL_MACHINE;
if PageControl1.ActivePageIndex<2>then тут ошибка пишет в then хотя все делал правильно
PageControl1.ActivePage.OnShow(self);
end;
end

delphi -help. ru/ index .php?option=com _ k2&view =item&id =1327 : upravlenie- avtozagruzkoy-na-delphi&tmpl=component& print=1 урок отсюда брал или там ошибки?

Baсилий · Accepted Answer

procedure TForm1.sRadioButton1Click(Sender: TObject); 
begin 
 if Key <> windows.HKEY_LOCAL_MACHINE then 
 begin 
 key := Windows.HKEY_LOCAL_MACHINE; 
 if PageControl1.ActivePageIndex = 2 then 
 PageControl1.ActivePage.OnShow(self); 
 end; 
end; 
 
Если что-то непонятно, пишите комментарий или в почту :) 
 
Желаю успехов! 
Богомолов Игорь Дмитриевич, 15 лет.

Татьяна Кобелева · Answer

Ты дурак.