Hacer que la aplicación "respire"

[Khronos]

Ya lo hice pero nada, sigue quedándose bloquedado durante unos segundos y solo pasa al descargar el contenido del html.

Código Delphi [-]
type
  THttpThread = class(TThread)
    private
      Http: TIdHttp;
      FPage: string;
      FIndex: integer;
      FBusqueda: string;
      procedure UpdateSearch;
      procedure OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
      procedure OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);
      procedure OnWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
    public
      constructor Create;
      procedure Execute(const Busqueda: string; index: integer); reintroduce;
  end;

Saludos.