TidHTTP zaman aşımı

[info@guzelceker.com]

aaşağıdaki gibi kodum var internetten resim çekiyor ... 
sorunum şu: internete bağlıyım ama sunucumda arıza var .program kilitleniyor zaman aşımına nasıl uğratabilirim...

procedure res_cek(url:string;image:timage);
var
MS : TMemoryStream;
jpg : TJPEGImage;
http : TidHTTP;
begin
MS := TMemoryStream.Create;
jpg := TJPEGImage.Create;
http := tidhttp.create;
try
 http.get(url,MS);
 Ms.Seek(0,soFromBeginning);
 jpg.LoadFromStream(MS);
 Image.Picture.Assign(jpg);
finally
 FreeAndNil(jpg);
 FreeAndNil(MS);
 FreeAndNil(http);
end;
end;

[savasabd]

(09-05-2021, Saat: 14:02)info@guzelceker.com Adlı Kullanıcıdan Alıntı: aaşağıdaki gibi kodum var internetten resim çekiyor ... 
sorunum şu: internete bağlıyım ama sunucumda arıza var .program kilitleniyor zaman aşımına nasıl uğratabilirim...

procedure res_cek(url:string;image:timage);
var
MS : TMemoryStream;
jpg : TJPEGImage;
http : TidHTTP;
begin
MS := TMemoryStream.Create;
jpg := TJPEGImage.Create;
http := tidhttp.create;
try
 http.get(url,MS);
 Ms.Seek(0,soFromBeginning);
 jpg.LoadFromStream(MS);
 Image.Picture.Assign(jpg);
finally
 FreeAndNil(jpg);
 FreeAndNil(MS);
 FreeAndNil(http);
end;
end;

    
IdHTTP1.ConnectTimeout := 3000;       // Eğer bağlandığınız siteyse ve ip'si cahche'de yoksa dns çözümleme süresi bu süreye dahil değil,
 IdHTTP1.ReadTimeout := 3000;   // bundan dolayı bağlantı zaman aşımında süre biraz değişebilir