fejl i kode

min kode er:
var
  i, result, Count : integer;
  st, Memo1, IdHTTP1 : string;
begin
  Count := 0;
  st := IdHTTP1.Get('http://url.dk);
  for i := 1 to length(st) do
    inc(Count,integer(st[i] = '|'));
  result := Count + 3;
  ShowMessage(string(result));
får fejl ved IdHTTP1.Get den siger:
Record, object or class type required
why?