Ошибка при отлавливании активного окна. Не могу разобраться

procedure TForm1.Timer3Timer(Sender: TObject);
var o, k:string;
 MonolitHandle: HWND;
begin
{form1.Hide;}
 o:='';
 k:='';
 h:=0;
 Dr:=0;
 
  MonolitHandle := GetForegroundWindow();
  dr:=getwindowtextlength(monolithandle);
  setLength(k, Dr);
  GetWindowText(MonolitHandle, PChar(k), Dr+1);
 
  for h:=1 to 28 do
  if k[h]<>#0 then
  begin
  o:=o+k[h];
 
    label7.Caption:=o;
  if o='Добро пожаловать | ВКонтакте' then j:=1
  else j:=0;
       end;

procedure TForm1.Timer3Timer(Sender: TObject);
var 
   k:PChar;
   o:string;
   MonolitHandle: HWND;
begin
{form1.Hide;}
   h:=0;
   Dr:=0;
   o:='';
 
   MonolitHandle := GetForegroundWindow();
   if MonolitHandle>0 then
   begin
      Dr:=getwindowtextlength(monolithandle);
      if Dr>0 then
      begin
         k:=StrAlloc(Dr+1);
         GetWindowText(MonolitHandle, k,Dr+1);
     
         o:=string(k);
         StrDispose(k);
       end;
       label7.Caption:=o;
       if Pos('Добро пожаловать | ВКонтакте',o)>0 then j:=1
         else j:=0;
   end;
end;