procedure TSOAP_Transfer.IdTCPServerExecute(AContext: TIdContext);
var
 MS: TMemoryStream;
 SL: TStringList;
begin
 MS := TMemoryStream.Create;
 SL := TStringList.Create;
 try
   SL.Text := Acontext.Connection.ReadLN;

   // Дальше идет Case выбора режима. Возьму кусочек где идет обращение к веб-службе
   try
    IdHttp.Post(HTTP_WWW, SL, MS);
    SL.Clear;
    MS.position := 0;
    SL.LoadFromStream(MS);
    Acontext.Connection.Socket.WriteLn(SL.Text);  
   except
     on E:EIdHTTPProtocolException
     begin
     // Вот как раз сейчас инетерсует переброска нормального сообщения об ошибке клиенту. Здесь ???
    SL.Clear;
    SL.Text := E.ErrorMessage // Он в UTF-8
   Acontext.Connection.Socket.WriteLn(SL.Text);
     end;
   end;
 finally
  FreeAndNil(MS);
  FreeAndNil(SL);
 end; 
end;