var site: TStringList; begin site := TStringList.Create; site.text:=idhttp1.Get('site'); if site.count > 200 then ShowMessage('> 200');