Problem with tablayout

[NarcisoBor]

in this procedure S (VAriable) result always '' (Nullstring) ,
WHY?
function TAndroidModule1.TabExists(itemTitle: string): Boolean;
var  i: Integer;  s: string;
begin 
Result := False;
  for i := 0 to TabLayout1.GetTabCount() - 1 do  begin   
s:= TabLayout1.GetTitle(i);
    showmessage(s+' = '+ itemtitle); 
  if s = itemTitle then   
begin 
    Result := True; 
    Break; 
  end; 
end;