[angvelem]

А что тебя не устраивает? Добавь только try-finally-end.:

Код:

  PostedFile := TMemoryStream.Create;
  try
    ass := TStringStream.Create(Copy(ARequestInfo.FormParams,x,y-x)); //х,y - начало и конец бинарного файла в строке
    try
      ARequestInfo.free;//освобожд. чтоб уменьшить расход памяти
      PostedFile.LoadFromStream(ass);//передаём в MemoryStream для сохранения
    finally
      ass.Free;
    end;
    PostedFile.SaveToFile(flname);//сохраняем
  finally
    PostedFile.Free;
  end;