criando componente em run time

Source original:

Function MeuIP: string;
var

iip : char;
site: string;
d,c,cont : integer;

begin

c := 215;
d := 15;
site := Form1.IdHTTP1.Get('http://meuip.datahouse.com.br');
MeuIP := Copy(site, Pos('', site) +c, d);

for cont := 1 to 15 do
begin
iip := Copy(site, Pos('', site) +c, d)[1];
if iip = ' ' then

c := c+1;
iip := Copy(site, Pos('', site) +c, d)[length(Copy(site, Pos('', site) +c, d))];

if iip = '<' then

d := d-1;
MeuIP := Copy(site, Pos('', site) +c, d);
end;
end;

Depois que eu modifiquei:

Function MeuIP: string;
var

iip : char;
site: string;
d,c,cont : integer;
IdHTTP1 : TIdHTTP;

begin

IdHTTP1 := IdHTTP1.create(self);
c := 215;
d := 15;
site := Form1.IdHTTP1.Get('http://meuip.datahouse.com.br');
MeuIP := Copy(site, Pos('', site) +c, d);

for cont := 1 to 15 do
begin
iip := Copy(site, Pos('', site) +c, d)[1];
if iip = ' ' then

c := c+1;
iip := Copy(site, Pos('', site) +c, d)[length(Copy(site, Pos('', site) +c, d))];

if iip = '<' then

d := d-1;
MeuIP := Copy(site, Pos('', site) +c, d);
end;
IdHTTP1.free;
end;

Erros que está dando:

[DCC Error] Unit1.pas(117): E2003 Undeclared identifier: 'self'

[DCC Error] Unit1.pas(120): E2003 Undeclared identifier: 'IdHTTP1'

Porque está dando este erro? Eu fiz o mesmo em outra parte da source com o tcpclient e deuc erto...

PS:.. na uses o IdHTTP está declarado...