Delphi 显示过大的json数据时卡机，该如何处理！

message_content := replaceStr(D_sa1[0].S['message_content']);
这个方法是json获取“message_content”这个字段的值，现在这个值是一个很大的字符串，获取的时候程序页面卡死大概30秒，想知道如何处理呢？
procedure TForm25.FormShow(Sender: TObject);
var
  ID: DWORD;
  CThread: Thandle; // 声明了一个句柄，这里本来想用线程处理，可是没有写好。
  Tid: DWORD;
begin
  top := (screen.Height - Height) div 2;
  left := (screen.Width - Width) div 2;
  if (tixing.showstate = 'showing') and (tixing.SIDS <> '') then
  begin
    current_page := '1';
    detailStr := tixing.G_contentStr;
    p_str := detailStr;
     Show_Html_ALL(tixing.G_contentStr);//这个调用的方法
  end
  else if detailStr <> '' then
  begin
    current_page := main.details_page;
    p_str := detailStr;
     Show_Html_ALL(detailStr);//这个调用的方法
  end;
end;