Ошибки при гет запросе

procedure TForm1.Timer1Timer(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
HTTP:TIdHTTP;
Response:TFileStream;
s,a,g:string;
Version:TStringList;
LoadStream: TMemoryStream;
Data:tstringlist;
i:integer;
Find:string; // Искомая строка
begin
try
Http := TIdHTTP.Create(Self);
GetVolumeInformation('C:\',  nil, 0, @VolumeSerialNumber,MaximumComponentLength, FileSystemFlags,  nil,  0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +   '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
sedit1.Text:=(SerialNumber);
find:=sEdit1.text;
sMemo1.Lines.Add(IdHTTP1.Get('тут адрес сайта'));
For i:=0 to sMemo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, sMemo1.Lines.Text)>0   then
begin
  form2.Show; Form1.Hide;
end
else
begin
  form1.Hide; form3.show;
end;
 
finally
timer1.free
 
 
end;
end;