procedure TDataModule1.Redirect(var Response: TSpiderResponse; Url: string);
begin
     Response.Add('< HTML >');
     Response.Add('< HEAD >');
     Response.Add('< TITLE >Redirect...< /TITLE >');
     Response.Add('< META HTTP-EQUIV="REFRESH" CONTENT="0; URL=' + Url + '" >');
     Response.Add('< /HEAD >');
     Response.Add('< BODY >');
     Response.Add('Redirect...');
     Response.Add('< /BODY >');
     Response.Add('< /HTML >');
end;

Redirect(Response,'http://www.lazaruspascal.it/');